home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2000-04-12 | 63.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 0a 00 00 8f bc c8 09 | a2 9a 59 8f bc c8 09 41 |........|..Y....A|
|00000010| 41 41 41 41 41 41 41 41 | 41 41 41 8f bc c8 09 01 |AAAAAAAA|AAA.....|
|00000020| 04 50 62 54 6f 00 00 01 | 01 01 01 1d 56 31 27 73 |.PbTo...|....V1's|
|00000030| 20 54 43 50 2f 49 50 20 | 54 6f 6f 6c 20 76 32 2e | TCP/IP |Tool v2.|
|00000040| 32 2e 31 20 28 66 61 74 | 29 80 80 80 02 80 80 80 |2.1 (fat|).......|
|00000050| 01 02 02 01 00 00 00 00 | 00 01 00 0b 41 70 70 4e |........|....AppN|
|00000060| 61 6d 65 2e 65 78 65 00 | 0e 4d 79 20 41 70 70 6c |ame.exe.|.My Appl|
|00000070| 69 63 61 74 69 6f 6e 88 | 03 32 90 06 b0 03 06 69 |ication.|.2.....i|
|00000080| 63 6c 38 80 10 00 00 00 | 00 00 00 ff ff ff ff 00 |cl8.....|........|
|00000090| 00 00 00 00 ff 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 ff f7 f9 ff ff |........|........|
|000000b0| 00 00 00 ff 00 ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff f9 f9 ff |........|........|
|000000d0| ff 00 ff 00 01 c0 ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 ff f7 f9 |........|........|
|000000f0| ff ff 00 01 01 2a c0 ff | 00 00 00 00 00 00 00 00 |.....*..|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff f9 |........|........|
|00000110| f9 ff 01 2a 2a 01 2a c0 | ff 00 00 00 00 00 00 00 |...**.*.|........|
|00000120| 00 00 00 00 00 00 ff ff | 00 00 00 00 00 00 ff f7 |........|........|
|00000130| f9 ff 2a 2a 2a 2a 01 2a | c0 ff 00 00 00 00 00 00 |..****.*|........|
|00000140| 00 00 00 00 00 00 ff f7 | ff 00 00 00 00 00 ff f7 |........|........|
|00000150| f9 ff 2a 2a 2a 2a 2a 01 | 2a c0 ff 00 00 00 00 00 |..*****.|*.......|
|00000160| 00 00 00 00 00 00 ff f9 | f9 ff 00 00 00 ff f7 f9 |........|........|
|00000170| f9 ff 2a 2a 2a 2a 2a 2a | 01 2a c0 ff 00 00 00 00 |..******|.*......|
|00000180| 00 00 00 00 00 00 ff ff | f9 f9 ff ff ff f7 f7 f7 |........|........|
|00000190| f9 ff ff 2a 2a 2a 2a 2a | 2a 01 2a c0 ff 00 00 00 |...*****|*.*.....|
|000001a0| 00 00 00 00 00 00 00 ff | ff f9 f7 f7 f7 f9 f7 f7 |........|........|
|000001b0| f7 ff 08 ff 2a ff ff ff | 2a 2a 01 2a c0 ff 00 00 |....*...|**.*....|
|000001c0| 00 00 00 00 00 00 00 00 | ff ff f9 f9 f9 f9 f9 f7 |........|........|
|000001d0| ff 08 08 33 ff 08 08 08 | ff ff 2a 01 2a c0 ff 00 |...3....|..*.*...|
|000001e0| 00 00 00 00 00 00 00 00 | 00 ff ff ff ff ff f9 ff |........|........|
|000001f0| 08 08 08 33 ff 08 08 33 | ff 08 ff 2a 01 2a c0 ff |...3...3|...*.*..|
|00000200| 00 00 00 00 00 00 00 00 | ff 00 f9 f9 f9 f9 ff 08 |........|........|
|00000210| 08 08 33 ff 08 08 33 ff | 08 08 33 ff 2a 01 2a c0 |..3...3.|..3.*.*.|
|00000220| ff 00 00 00 00 00 00 ff | 00 01 2a 2a 2a ff 08 08 |........|..***...|
|00000230| 08 ff ff 08 08 33 ff 08 | 08 33 ff ff 2a 2a 01 2a |.....3..|.3..**.*|
|00000240| c0 ff 00 00 00 00 ff 00 | 01 2a 2a 2a ff 08 08 08 |........|.***....|
|00000250| 08 ff 08 08 33 ff 08 08 | 33 ff 08 08 ff 2a 2a 01 |....3...|3....**.|
|00000260| 2a c0 ff 00 00 ff 00 01 | 01 2a 2a 2a ff 08 08 08 |*.......|.***....|
|00000270| 33 ff ff ff ff 08 08 33 | ff 08 08 33 ff 2a 2a 2a |3......3|...3.***|
|00000280| 01 2a c0 ff 00 00 ff c0 | 2a 01 2a ff 08 08 08 08 |.*......|*.*.....|
|00000290| ff 08 08 08 ff 08 33 ff | 08 08 33 ff ff 2a 2a 2a |......3.|..3..***|
|000002a0| 2a 2a c0 fb ff 00 00 ff | c0 2a 01 ff 08 08 08 33 |**......|.*.....3|
|000002b0| 08 08 08 08 ff 33 ff 08 | 08 33 ff 08 08 ff 2a 2a |.....3..|.3....**|
|000002c0| 2a c0 fb ff 00 00 00 00 | ff c0 2a ff 08 08 08 08 |*.......|..*.....|
|000002d0| 08 08 08 08 08 ff ff 08 | 33 ff 08 08 33 ff 2a 2a |........|3...3.**|
|000002e0| c0 fb ff 00 00 00 00 00 | 00 ff fa 08 01 08 08 08 |........|........|
|000002f0| 08 08 08 08 08 08 08 ff | ff ff 08 33 ff f9 2a c0 |........|...3..*.|
|00000300| fb ff 00 00 00 00 00 00 | 00 00 ff fb 08 01 08 08 |........|........|
|00000310| 08 08 08 08 08 08 08 08 | 08 08 ff ff f7 2a c0 fb |........|.....*..|
|00000320| ff 00 00 00 00 00 00 00 | 00 00 00 ff fb 08 01 08 |........|........|
|00000330| 08 08 08 08 ff 08 ff 08 | 33 33 ff f9 2a c0 fb ff |........|33..*...|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff fb 08 01 |........|........|
|00000350| 08 08 08 08 ff 08 ff 33 | 33 ff f9 2a c0 fb ff 00 |.......3|3..*....|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 ff fb 08 |........|........|
|00000370| 01 08 08 08 ff 33 ff ff | ff f9 2a c0 fb ff 00 00 |.....3..|..*.....|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff fb |........|........|
|00000390| 08 08 33 ff ff ff ff ff | f9 2a c0 fb ff 00 00 00 |..3.....|.*......|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 ff |........|........|
|000003b0| fb 33 ff ff fa fa fa ff | 2a c0 fb ff 00 00 00 00 |.3......|*.......|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| ff fa ff ff fa fa fa ff | c0 fb ff 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 ff f9 ff ff ff ff ff | fb ff 00 00 00 00 00 00 |........|........|
|00000400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 ff ff fa ff fa ff | ff 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 fa f5 fa | fa fb fc fd fd fe fe ff |........|........|
|00000430| ff ff ff fa fa ff fa fa | ff ff ff ff fe fe fd fd |........|........|
|00000440| fc fb 2b fa f5 f5 f5 f5 | f5 f6 2b f7 f7 f8 f8 f9 |..+.....|..+.....|
|00000450| f9 fa fa fa ff 00 ff fa | fa fa f9 f9 f8 f8 f7 f7 |........|........|
|00000460| 2b f6 f5 f5 f5 fa f5 fa | fa fb fc fd fd fe fe ff |+.......|........|
|00000470| ff ff ff ff 00 00 00 ff | ff ff ff ff fe fe fd fd |........|........|
|00000480| fc fb 2b fa f5 69 63 6c | 34 80 08 00 00 00 ff ff |..+..icl|4.......|
|00000490| 00 00 0f 00 00 00 00 00 | 00 00 00 00 00 00 fc df |........|........|
|000004a0| f0 00 f0 f0 00 00 00 00 | 00 00 00 00 00 00 0f dd |........|........|
|000004b0| ff 0f 00 7f 00 00 00 00 | 00 00 00 00 00 00 00 fc |........|........|
|000004c0| df f0 07 07 f0 00 00 00 | 00 00 00 00 00 00 00 0f |........|........|
|000004d0| dd f0 70 70 7f 00 00 00 | 00 00 00 0f f0 00 00 0f |..pp....|........|
|000004e0| cd f7 07 07 07 f0 00 00 | 00 00 00 0f cf 00 00 0f |........|........|
|000004f0| cd f0 70 70 70 7f 00 00 | 00 00 00 0f dd f0 00 fc |..ppp...|........|
|00000500| dd f7 07 07 07 07 f0 00 | 00 00 00 0f fd df ff cc |........|........|
|00000510| cd ff 70 70 70 70 7f 00 | 00 00 00 00 ff dc cc dc |..pppp..|........|
|00000520| cc f2 f7 ff f7 07 07 f0 | 00 00 00 00 0f fd dd dd |........|........|
|00000530| cf 20 df 20 2f f0 70 7f | 00 00 00 00 00 ff ff fd |. . /.p.|........|
|00000540| f2 02 df 02 df 0f 07 07 | f0 00 00 00 0f 0d dd df |........|........|
|00000550| 20 2d f0 2d f0 2d f0 70 | 7f 00 00 00 f0 07 07 f2 | -.-.-.p|........|
|00000560| 02 ff 02 df 02 df f7 07 | 07 f0 00 0f 00 70 7f 20 |........|.....p. |
|00000570| 20 f0 2d f0 2d f0 2f 70 | 70 7f 00 f0 07 07 0f 02 | .-.-./p|p.......|
|00000580| 0d ff ff 02 df 02 df 07 | 07 07 f0 0f 70 70 f0 20 |........|....pp. |
|00000590| 2f 20 2f 2d f0 2d ff 70 | 70 77 ef 00 f7 07 f2 02 |/ /-.-.p|pw......|
|000005a0| d2 02 0f df 02 df 02 f7 | 07 7e f0 00 0f 70 f0 20 |........|.~...p. |
|000005b0| 20 20 20 ff 2d f0 2d f0 | 77 ef 00 00 00 fd f2 02 | .-.-.|w.......|
|000005c0| 02 02 02 02 ff f2 df d0 | 7e f0 00 00 00 0f ec 20 |........|~...... |
|000005d0| 20 20 20 20 20 2f fc 07 | ef 00 00 00 00 00 fe c2 | /..|........|
|000005e0| 02 02 0f 0f 0d df d0 7e | f0 00 00 00 00 00 0f ec |.......~|........|
|000005f0| 20 20 2f 2f dd fd 07 ef | 00 00 00 00 00 00 00 fe | //....|........|
|00000600| c2 02 0f df ff d0 7e f0 | 00 00 00 00 00 00 00 0f |......~.|........|
|00000610| e0 2d ff ff fd 07 ef 00 | 00 00 00 00 00 00 00 00 |.-......|........|
|00000620| fe dc fd dd f7 7e f0 00 | 00 00 00 00 00 00 00 00 |.....~..|........|
|00000630| 0f ff fd dd f7 ef 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 fd ff ff fe f0 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 0f fd fd ff 00 00 00 | 00 00 00 d0 dd ee aa ff |........|........|
|00000660| ff ff dd fd df ff ff fa | ae ec d0 00 00 cc cc cc |........|........|
|00000670| dd dd df 0f dd dd dc cc | cc c0 00 d0 dd ee aa ff |........|........|
|00000680| ff ff f0 00 ff ff ff fa | ae ec d0 69 63 73 34 80 |........|...ics4.|
|00000690| 02 00 0f ff 0f f0 00 00 | 00 00 0f ff f7 ff 00 00 |........|........|
|000006a0| 00 ff 00 fd f7 7f f0 00 | 00 ff f0 fd f7 77 ff 00 |........|.....w..|
|000006b0| 00 ff ff dd ff ff 7f f0 | 00 0f ff ff 2f 2f f7 ff |........|....//..|
|000006c0| 00 0f dd f2 ff ff ff 7f | f0 f7 7f 2d ff ff ff 77 |........|...-...w|
|000006d0| ff ff 7f 2f 2f ff ff f7 | ef 0f ff 22 22 ff ff fe |...//...|...""...|
|000006e0| f0 00 ff c2 2f fd ff ef | 00 00 0f fc 2f ff fe f0 |..../...|..../...|
|000006f0| 00 00 00 ff df ff ef 00 | 00 00 00 0f ff ff f0 00 |........|........|
|00000700| 00 dd ea ff ff ff ff fe | ed dd ec ff ff ff ff fe |........|........|
|00000710| ed 69 63 73 38 80 04 00 | 00 00 ff ff ff 00 ff ff |.ics8...|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 ff ff ff ff 01 ff |........|........|
|00000730| ff 00 00 00 00 00 00 ff | ff 00 00 ff f9 ff 2a 2a |........|......**|
|00000740| ff ff 00 00 00 00 00 ff | ff ff 00 ff f9 ff 2a 2a |........|......**|
|00000750| 2a ff ff 00 00 00 00 ff | ff ff ff f9 f9 ff ff ff |*.......|........|
|00000760| ff 2a ff ff 00 00 00 00 | ff ff ff ff ff 08 ff 08 |.*......|........|
|00000770| ff ff 2a ff ff 00 00 00 | ff f9 f9 ff 08 ff ff ff |..*.....|........|
|00000780| ff ff ff 2a ff ff 00 ff | 01 2a ff 08 33 ff ff ff |...*....|.*..3...|
|00000790| ff ff ff 2a 2a ff ff ff | ff 2a ff 08 ff 08 ff ff |...**...|.*......|
|000007a0| ff ff ff ff 2a fb ff 00 | ff ff ff 08 08 08 08 ff |....*...|........|
|000007b0| ff ff ff ff fb ff 00 00 | 00 ff ff 08 08 08 ff ff |........|........|
|000007c0| 33 ff ff fb ff 00 00 00 | 00 00 ff ff 08 08 ff ff |3.......|........|
|000007d0| ff ff fb ff 00 00 00 00 | 00 00 00 ff ff ff ff ff |........|........|
|000007e0| ff fb ff 00 00 00 00 00 | 00 00 00 00 ff ff ff ff |........|........|
|000007f0| ff ff 00 00 00 00 00 fa | fa fc fd fe ff ff ff ff |........|........|
|00000800| ff ff ff fe fd fb fa fa | fa fc fd fe ff ff ff ff |........|........|
|00000810| ff ff ff fe fd fb fa 49 | 43 4e 23 80 04 03 c1 00 |.......I|CN#.....|
|00000820| 00 02 62 80 00 01 34 c0 | 00 00 98 60 00 00 48 30 |..b...4.|...`..H0|
|00000830| 00 60 48 18 00 50 48 0c | 00 48 88 06 00 67 0c 03 |.`H..PH.|.H...g..|
|00000840| 00 30 0a e1 80 18 11 18 | c0 0f a1 14 60 10 42 22 |.0......|....`.B"|
|00000850| 30 20 8c 46 18 41 08 89 | 0c 81 0f 11 06 62 11 23 |0 .F.A..|.....b.#|
|00000860| 07 32 01 44 8e 1a 00 c8 | 9c 0c 00 39 38 06 00 06 |.2.D....|...98...|
|00000870| 70 03 01 44 e0 01 81 49 | c0 00 c1 73 80 00 63 e7 |p..D...I|...s..c.|
|00000880| 00 00 37 ee 00 00 1f fc | 00 00 0b f8 00 00 07 f0 |..7.....|........|
|00000890| 00 bf ff ff fa 00 0f 78 | 00 bf fe 3f fa 03 c1 00 |.......x|...?....|
|000008a0| 00 03 e3 80 00 01 f7 c0 | 00 00 ff e0 00 00 7f f0 |........|........|
|000008b0| 00 60 7f f8 00 70 7f fc | 00 78 ff fe 00 7f ff ff |.`...p..|.x......|
|000008c0| 00 3f ff ff 80 1f ff ff | c0 0f ff ff e0 1f ff ff |.?......|........|
|000008d0| f0 3f ff ff f8 7f ff ff | fc ff ff ff fe 7f ff ff |.?......|........|
|000008e0| ff 3f ff ff fe 1f ff ff | fc 0f ff ff f8 07 ff ff |.?......|........|
|000008f0| f0 03 ff ff e0 01 ff ff | c0 00 ff ff 80 00 7f ff |........|........|
|00000900| 00 00 3f fe 00 00 1f fc | 00 00 0f f8 00 00 07 f0 |..?.....|........|
|00000910| 00 ff ff ff ff ff ff 7f | ff ff fe 3f ff 69 63 73 |........|...?.ics|
|00000920| 23 80 01 1d 80 1e c0 ca | 60 ea 30 f3 d8 7d 6c 4b |#.......|`.0..}lK|
|00000930| f6 93 f3 d5 fb 70 fe 31 | bc 19 f8 0f f0 07 e0 ff |.....p.1|........|
|00000940| ff ff ff 1d 80 1f c0 cf | e0 ef f0 ff f8 7f fc 7f |........|........|
|00000950| fe ff ff ff ff 7f fe 3f | fc 1f f8 0f f0 07 e0 ff |.......?|........|
|00000960| ff ff ff 00 01 41 04 56 | 69 65 77 0a 43 6f 6e 74 |.....A.V|iew.Cont|
|00000970| 72 6f 6c 57 49 4e 05 09 | 28 00 00 00 00 e8 0f 13 |rolWIN..|(.......|
|00000980| 04 4e 61 6d 65 0a 43 6f | 6e 74 72 6f 6c 57 49 4e |.Name.Co|ntrolWIN|
|00000990| 05 46 72 61 6d 65 01 30 | 0c 48 61 73 42 61 63 6b |.Frame.0|.HasBack|
|000009a0| 43 6f 6c 6f 72 04 54 72 | 75 65 09 42 61 63 6b 43 |Color.Tr|ue.BackC|
|000009b0| 6f 6c 6f 72 08 31 35 36 | 35 38 37 33 34 08 42 61 |olor.156|58734.Ba|
|000009c0| 63 6b 64 72 6f 70 01 30 | 05 54 69 74 6c 65 16 56 |ckdrop.0|.Title.V|
|000009d0| 69 72 74 75 61 6c 31 27 | 73 20 54 43 50 2f 49 50 |irtual1'|s TCP/IP|
|000009e0| 20 54 6f 6f 6c 07 56 69 | 73 69 62 6c 65 04 54 72 | Tool.Vi|sible.Tr|
|000009f0| 75 65 08 43 6c 6f 73 65 | 42 6f 78 04 54 72 75 65 |ue.Close|Box.True|
|00000a00| 08 47 72 6f 77 49 63 6f | 6e 05 46 61 6c 73 65 08 |.GrowIco|n.False.|
|00000a10| 5a 6f 6f 6d 49 63 6f 6e | 05 46 61 6c 73 65 0b 42 |ZoomIcon|.False.B|
|00000a20| 61 6c 6c 6f 6f 6e 48 65 | 6c 70 00 09 4d 61 63 50 |alloonHe|lp..MacP|
|00000a30| 72 6f 63 49 44 01 30 09 | 50 6c 61 63 65 6d 65 6e |rocID.0.|Placemen|
|00000a40| 74 01 30 05 57 69 64 74 | 68 03 35 39 32 06 48 65 |t.0.Widt|h.592.He|
|00000a50| 69 67 68 74 03 35 34 31 | 08 4d 69 6e 57 69 64 74 |ight.541|.MinWidt|
|00000a60| 68 02 36 34 09 4d 69 6e | 48 65 69 67 68 74 02 36 |h.64.Min|Height.6|
|00000a70| 34 08 4d 61 78 57 69 64 | 74 68 05 33 32 30 30 30 |4.MaxWid|th.32000|
|00000a80| 09 4d 61 78 48 65 69 67 | 68 74 05 33 32 30 30 30 |.MaxHeig|ht.32000|
|00000a90| 07 00 0a 43 6f 6e 74 72 | 6f 6c 57 49 4e b8 03 06 |...Contr|olWIN...|
|00000aa0| 41 70 70 6c 65 74 00 24 | 10 48 65 78 53 74 72 20 |Applet.$|.HexStr |
|00000ab0| 61 73 20 73 74 72 69 6e | 67 00 11 41 64 64 72 65 |as strin|g..Addre|
|00000ac0| 73 73 20 61 73 20 73 74 | 72 69 6e 67 00 0f 50 6f |ss as st|ring..Po|
|00000ad0| 72 74 20 61 73 20 69 6e | 74 65 67 65 72 00 12 4e |rt as in|teger..N|
|00000ae0| 75 6d 65 72 61 6c 73 20 | 61 73 20 73 74 72 69 6e |umerals |as strin|
|00000af0| 67 00 14 43 6f 6e 6e 65 | 63 74 65 64 20 61 73 20 |g..Conne|cted as |
|00000b00| 62 6f 6f 6c 65 61 6e 00 | 16 52 78 42 75 66 66 65 |boolean.|.RxBuffe|
|00000b10| 72 20 28 30 29 20 61 73 | 20 73 74 72 69 6e 67 00 |r (0) as| string.|
|00000b20| 14 52 78 50 61 63 6b 65 | 74 73 20 61 73 20 69 6e |.RxPacke|ts as in|
|00000b30| 74 65 67 65 72 00 12 52 | 78 42 79 74 65 73 20 61 |teger..R|xBytes a|
|00000b40| 73 20 69 6e 74 65 67 65 | 72 00 14 4c 69 73 74 65 |s intege|r..Liste|
|00000b50| 6e 69 6e 67 20 61 73 20 | 62 6f 6f 6c 65 61 6e 00 |ning as |boolean.|
|00000b60| 1b 44 65 63 6f 64 65 41 | 6c 70 68 61 20 28 32 35 |.DecodeA|lpha (25|
|00000b70| 35 29 20 61 73 20 73 74 | 72 69 6e 67 00 19 44 65 |5) as st|ring..De|
|00000b80| 63 6f 64 65 48 65 78 20 | 28 32 35 35 29 20 61 73 |codeHex |(255) as|
|00000b90| 20 73 74 72 69 6e 67 00 | 12 49 64 65 6e 74 69 74 | string.|.Identit|
|00000ba0| 79 20 61 73 20 73 74 72 | 69 6e 67 00 13 52 78 48 |y as str|ing..RxH|
|00000bb0| 65 78 20 28 30 29 20 61 | 73 20 73 74 72 69 6e 67 |ex (0) a|s string|
|00000bc0| 00 15 52 78 41 73 63 69 | 69 20 28 30 29 20 61 73 |..RxAsci|i (0) as|
|00000bd0| 20 73 74 72 69 6e 67 00 | 15 52 78 41 6c 70 68 61 | string.|.RxAlpha|
|00000be0| 20 28 30 29 20 61 73 20 | 73 74 72 69 6e 67 00 12 | (0) as |string..|
|00000bf0| 52 78 4c 69 6e 65 73 20 | 61 73 20 69 6e 74 65 67 |RxLines |as integ|
|00000c00| 65 72 00 10 52 78 46 75 | 6c 6c 20 61 73 20 73 74 |er..RxFu|ll as st|
|00000c10| 72 69 6e 67 00 1f 55 73 | 65 72 43 6f 6e 6e 65 63 |ring..Us|erConnec|
|00000c20| 74 69 6f 6e 41 64 64 72 | 65 73 73 20 61 73 20 73 |tionAddr|ess as s|
|00000c30| 74 72 69 6e 67 00 1c 55 | 73 65 72 43 6f 6e 6e 65 |tring..U|serConne|
|00000c40| 63 74 69 6f 6e 50 6f 72 | 74 20 61 73 20 73 74 72 |ctionPor|t as str|
|00000c50| 69 6e 67 00 1d 43 68 61 | 6e 67 69 6e 67 43 6f 6e |ing..Cha|ngingCon|
|00000c60| 6e 65 63 74 69 6f 6e 20 | 61 73 20 62 6f 6f 6c 65 |nection |as boole|
|00000c70| 61 6e 00 1b 43 68 61 6e | 67 69 6e 67 53 65 6e 64 |an..Chan|gingSend|
|00000c80| 44 61 74 61 20 61 73 20 | 62 6f 6f 6c 65 61 6e 00 |Data as |boolean.|
|00000c90| 16 55 73 65 72 53 65 6e | 64 44 61 74 61 20 61 73 |.UserSen|dData as|
|00000ca0| 20 73 74 72 69 6e 67 00 | 16 44 6f 41 75 74 6f 52 | string.|.DoAutoR|
|00000cb0| 65 70 6c 79 20 61 73 20 | 62 6f 6f 6c 65 61 6e 00 |eply as |boolean.|
|00000cc0| 15 50 6c 61 79 53 6f 75 | 6e 64 73 20 61 73 20 62 |.PlaySou|nds as b|
|00000cd0| 6f 6f 6c 65 61 6e 00 19 | 4b 6e 6f 77 6e 53 74 72 |oolean..|KnownStr|
|00000ce0| 69 6e 67 20 28 30 29 20 | 61 73 20 73 74 72 69 6e |ing (0) |as strin|
|00000cf0| 67 00 1b 4b 6e 6f 77 6e | 49 64 65 6e 74 69 74 79 |g..Known|Identity|
|00000d00| 20 28 30 29 20 61 73 20 | 73 74 72 69 6e 67 00 19 | (0) as |string..|
|00000d10| 4b 6e 6f 77 6e 47 72 6f | 75 70 73 20 28 30 29 20 |KnownGro|ups (0) |
|00000d20| 61 73 20 73 74 72 69 6e | 67 00 18 4b 6e 6f 77 6e |as strin|g..Known|
|00000d30| 52 65 70 6c 79 20 28 30 | 29 20 61 73 20 73 74 72 |Reply (0|) as str|
|00000d40| 69 6e 67 00 18 4b 6e 6f | 77 6e 47 72 6f 75 70 20 |ing..Kno|wnGroup |
|00000d50| 28 30 29 20 61 73 20 73 | 74 72 69 6e 67 00 18 53 |(0) as s|tring..S|
|00000d60| 68 6f 72 74 43 75 74 49 | 50 20 28 30 29 20 61 73 |hortCutI|P (0) as|
|00000d70| 20 73 74 72 69 6e 67 00 | 1a 53 68 6f 72 74 43 75 | string.|.ShortCu|
|00000d80| 74 50 6f 72 74 20 28 30 | 29 20 61 73 20 73 74 72 |tPort (0|) as str|
|00000d90| 69 6e 67 00 1b 44 65 63 | 6f 64 65 41 73 63 69 69 |ing..Dec|odeAscii|
|00000da0| 20 28 32 35 35 29 20 61 | 73 20 73 74 72 69 6e 67 | (255) a|s string|
|00000db0| 00 1a 53 68 6f 72 74 43 | 75 74 53 65 6e 64 20 28 |..ShortC|utSend (|
|00000dc0| 30 29 20 61 73 20 73 74 | 72 69 6e 67 00 1a 53 68 |0) as st|ring..Sh|
|00000dd0| 6f 72 74 43 75 74 56 69 | 65 77 20 28 30 29 20 61 |ortCutVi|ew (0) a|
|00000de0| 73 20 73 74 72 69 6e 67 | 00 1b 55 73 65 72 43 68 |s string|..UserCh|
|00000df0| 61 6e 67 69 6e 67 49 6e | 66 6f 20 61 73 20 62 6f |angingIn|fo as bo|
|00000e00| 6f 6c 65 61 6e 00 12 50 | 72 65 76 56 69 65 77 20 |olean..P|revView |
|00000e10| 61 73 20 73 74 72 69 6e | 67 00 18 08 53 65 6e 64 |as strin|g...Send|
|00000e20| 54 65 78 74 00 00 00 22 | 03 22 03 32 0e 53 75 62 |Text..."|.".2.Sub|
|00000e30| 20 53 65 6e 64 54 65 78 | 74 28 29 00 00 12 64 69 | SendTex|t()...di|
|00000e40| 6d 20 62 75 67 20 61 73 | 20 69 6e 74 65 67 65 72 |m bug as| integer|
|00000e50| 00 19 2f 2f 20 74 69 6d | 65 20 74 6f 20 73 65 6e |..// tim|e to sen|
|00000e60| 64 20 73 6f 6d 65 74 68 | 69 6e 67 00 20 53 74 61 |d someth|ing. Sta|
|00000e70| 74 75 73 54 58 54 2e 74 | 65 78 74 3d 22 73 65 6e |tusTXT.t|ext="sen|
|00000e80| 64 69 6e 67 20 64 61 74 | 61 2e 2e 2e 22 94 01 43 |ding dat|a..."..C|
|00000e90| 68 61 6e 67 69 6e 67 53 | 65 6e 64 44 61 74 61 3d |hangingS|endData=|
|00000ea0| 74 72 75 65 20 20 2f 2f | 20 20 74 68 69 73 20 70 |true //| this p|
|00000eb0| 72 65 76 65 6e 74 73 20 | 74 68 65 20 63 68 61 6e |revents |the chan|
|00000ec0| 67 65 20 6d 65 74 68 6f | 64 20 6f 66 20 53 65 6e |ge metho|d of Sen|
|00000ed0| 64 42 4f 58 20 66 72 6f | 6d 20 72 65 63 75 72 73 |dBOX fro|m recurs|
|00000ee0| 69 6e 67 00 25 2f 2f 28 | 6d 61 6b 65 20 69 6e 74 |ing.%//(|make int|
|00000ef0| 6f 20 68 69 67 68 20 61 | 73 63 69 69 20 69 66 20 |o high a|scii if |
|00000f00| 6e 65 63 65 73 73 61 72 | 79 29 00 15 69 66 20 48 |necessar|y)..if H|
|00000f10| 69 67 68 43 48 4b 2e 76 | 61 6c 75 65 20 74 68 65 |ighCHK.v|alue the|
|00000f20| 6e 0a 52 61 69 73 65 41 | 73 63 69 69 06 65 6e 64 |n.RaiseA|scii.end|
|00000f30| 20 69 66 00 24 2f 2f 20 | 63 68 61 6e 67 65 20 43 | if.$// |change C|
|00000f40| 52 2f 4c 46 20 70 72 6f | 70 65 72 74 69 65 73 20 |R/LF pro|perties |
|00000f50| 69 66 20 6e 65 65 64 65 | 64 00 9c 02 2f 2f 20 6d |if neede|d...// m|
|00000f60| 73 67 62 6f 78 20 22 42 | 45 46 4f 52 45 3a 22 2b |sgbox "B|EFORE:"+|
|00000f70| 63 68 72 28 31 33 29 2b | 22 2d 2d 2d 2d 2d 2d 22 |chr(13)+|"------"|
|00000f80| 2b 63 68 72 28 31 33 29 | 2b 22 63 68 72 28 31 30 |+chr(13)|+"chr(10|
|00000f90| 29 20 61 74 3a 20 22 2b | 73 74 72 28 69 6e 73 74 |) at: "+|str(inst|
|00000fa0| 72 28 53 65 6e 64 42 4f | 58 2e 74 65 78 74 2c 63 |r(SendBO|X.text,c|
|00000fb0| 68 72 28 31 30 29 29 29 | 2b 63 68 72 28 31 33 29 |hr(10)))|+chr(13)|
|00000fc0| 2b 22 63 68 72 28 31 33 | 29 20 61 74 3a 20 22 2b |+"chr(13|) at: "+|
|00000fd0| 73 74 72 28 69 6e 73 74 | 72 28 53 65 6e 64 42 4f |str(inst|r(SendBO|
|00000fe0| 58 2e 74 65 78 74 2c 63 | 68 72 28 31 33 29 29 29 |X.text,c|hr(13)))|
|00000ff0| 2b 63 68 72 28 31 33 29 | 00 26 2f 2f 20 6d 61 63 |+chr(13)|.&// mac|
|00001000| 20 73 74 61 6e 64 61 72 | 64 20 69 73 20 63 68 72 | standar|d is chr|
|00001010| 28 31 33 29 20 6f 6e 6c | 79 20 61 74 20 45 4f 4c |(13) onl|y at EOL|
|00001020| 00 17 69 66 20 4c 46 73 | 65 6e 64 52 41 44 2e 76 |..if LFs|endRAD.v|
|00001030| 61 6c 75 65 20 74 68 65 | 6e 35 53 65 6e 64 42 4f |alue the|n5SendBO|
|00001040| 58 2e 74 65 78 74 3d 52 | 65 70 6c 61 63 65 41 6c |X.text=R|eplaceAl|
|00001050| 6c 28 53 65 6e 64 42 4f | 58 2e 74 65 78 74 2c 63 |l(SendBO|X.text,c|
|00001060| 68 72 28 31 33 29 2c 63 | 68 72 28 31 30 29 29 06 |hr(13),c|hr(10)).|
|00001070| 65 6e 64 20 69 66 00 17 | 69 66 20 43 52 73 65 6e |end if..|if CRsen|
|00001080| 64 52 41 44 2e 76 61 6c | 75 65 20 74 68 65 6e 23 |dRAD.val|ue then#|
|00001090| 2f 2f 20 64 6f 20 6e 6f | 74 68 69 6e 67 2c 20 74 |// do no|thing, t|
|000010a0| 68 69 73 20 69 73 20 6d | 61 63 20 73 74 61 6e 64 |his is m|ac stand|
|000010b0| 61 72 64 06 65 6e 64 20 | 69 66 00 19 69 66 20 43 |ard.end |if..if C|
|000010c0| 52 4c 46 73 65 6e 64 52 | 41 44 2e 76 61 6c 75 65 |RLFsendR|AD.value|
|000010d0| 20 74 68 65 6e 3d 53 65 | 6e 64 42 4f 58 2e 74 65 | then=Se|ndBOX.te|
|000010e0| 78 74 3d 52 65 70 6c 61 | 63 65 41 6c 6c 28 53 65 |xt=Repla|ceAll(Se|
|000010f0| 6e 64 42 4f 58 2e 74 65 | 78 74 2c 63 68 72 28 31 |ndBOX.te|xt,chr(1|
|00001100| 33 29 2c 63 68 72 28 31 | 33 29 2b 63 68 72 28 31 |3),chr(1|3)+chr(1|
|00001110| 30 29 29 06 65 6e 64 20 | 69 66 00 9b 02 2f 2f 20 |0)).end |if...// |
|00001120| 6d 73 67 62 6f 78 20 22 | 41 46 54 45 52 3a 22 2b |msgbox "|AFTER:"+|
|00001130| 63 68 72 28 31 33 29 2b | 22 2d 2d 2d 2d 2d 2d 22 |chr(13)+|"------"|
|00001140| 2b 63 68 72 28 31 33 29 | 2b 22 63 68 72 28 31 30 |+chr(13)|+"chr(10|
|00001150| 29 20 61 74 3a 20 22 2b | 73 74 72 28 69 6e 73 74 |) at: "+|str(inst|
|00001160| 72 28 53 65 6e 64 42 4f | 58 2e 74 65 78 74 2c 63 |r(SendBO|X.text,c|
|00001170| 68 72 28 31 30 29 29 29 | 2b 63 68 72 28 31 33 29 |hr(10)))|+chr(13)|
|00001180| 2b 22 63 68 72 28 31 33 | 29 20 61 74 3a 20 22 2b |+"chr(13|) at: "+|
|00001190| 73 74 72 28 69 6e 73 74 | 72 28 53 65 6e 64 42 4f |str(inst|r(SendBO|
|000011a0| 58 2e 74 65 78 74 2c 63 | 68 72 28 31 33 29 29 29 |X.text,c|hr(13)))|
|000011b0| 2b 63 68 72 28 31 33 29 | 00 1c 2f 2f 20 61 6e 64 |+chr(13)|..// and|
|000011c0| 20 73 65 6e 64 20 69 74 | 20 64 6f 77 6e 20 74 68 | send it| down th|
|000011d0| 65 20 70 69 70 65 00 1a | 54 65 73 74 53 4f 43 2e |e pipe..|TestSOC.|
|000011e0| 57 72 69 74 65 20 53 65 | 6e 64 42 4f 58 2e 54 65 |Write Se|ndBOX.Te|
|000011f0| 78 74 0f 53 65 6e 64 42 | 4f 58 2e 54 65 78 74 3d |xt.SendB|OX.Text=|
|00001200| 22 22 00 0c 53 6f 75 6e | 64 44 72 75 6d 54 61 70 |""..Soun|dDrumTap|
|00001210| 00 28 69 66 20 53 74 61 | 74 75 73 54 58 54 2e 74 |.(if Sta|tusTXT.t|
|00001220| 65 78 74 3d 22 73 65 6e | 64 69 6e 67 20 64 61 74 |ext="sen|ding dat|
|00001230| 61 2e 2e 2e 22 20 74 68 | 65 6e 1a 53 74 61 74 75 |a..." th|en.Statu|
|00001240| 73 54 58 54 2e 74 65 78 | 74 3d 22 63 6f 6e 6e 65 |sTXT.tex|t="conne|
|00001250| 63 74 65 64 22 06 65 6e | 64 20 69 66 00 16 43 68 |cted".en|d if..Ch|
|00001260| 61 6e 67 69 6e 67 53 65 | 6e 64 44 61 74 61 3d 66 |angingSe|ndData=f|
|00001270| 61 6c 73 65 00 07 45 6e | 64 20 53 75 62 0a 52 61 |alse..En|d Sub.Ra|
|00001280| 69 73 65 41 73 63 69 69 | 00 00 00 13 00 13 00 15 |iseAscii|........|
|00001290| 10 53 75 62 20 52 61 69 | 73 65 41 73 63 69 69 28 |.Sub Rai|seAscii(|
|000012a0| 29 3a 2f 2f 20 61 6e 79 | 20 61 6c 70 68 61 6e 75 |):// any| alphanu|
|000012b0| 6d 65 72 69 63 28 6f 72 | 20 6e 65 61 72 62 79 20 |meric(or| nearby |
|000012c0| 73 79 6d 62 6f 6c 29 20 | 72 61 69 73 65 73 20 74 |symbol) |raises t|
|000012d0| 6f 20 68 69 67 68 20 61 | 73 63 69 69 19 64 69 6d |o high a|scii.dim|
|000012e0| 20 54 72 61 6e 73 6c 61 | 74 69 6f 6e 20 61 73 20 | Transla|tion as |
|000012f0| 73 74 72 69 6e 67 13 64 | 69 6d 20 41 73 63 69 69 |string.d|im Ascii|
|00001300| 20 61 73 20 73 74 72 69 | 6e 67 16 64 69 6d 20 43 | as stri|ng.dim C|
|00001310| 6f 75 6e 74 65 72 20 61 | 73 20 69 6e 74 65 67 65 |ounter a|s intege|
|00001320| 72 12 64 69 6d 20 4d 61 | 78 20 61 73 20 69 6e 74 |r.dim Ma|x as int|
|00001330| 65 67 65 72 13 64 69 6d | 20 6c 65 66 74 20 61 73 |eger.dim| left as|
|00001340| 20 69 6e 74 65 67 65 72 | 09 63 6f 75 6e 74 65 72 | integer|.counter|
|00001350| 3d 30 0e 54 72 61 6e 73 | 6c 61 74 69 6f 6e 3d 22 |=0.Trans|lation="|
|00001360| 22 15 6d 61 78 3d 6c 65 | 6e 28 53 65 6e 64 42 4f |".max=le|n(SendBO|
|00001370| 58 2e 54 65 78 74 29 14 | 64 6f 20 75 6e 74 69 6c |X.Text).|do until|
|00001380| 20 63 6f 75 6e 74 65 72 | 3d 6d 61 78 11 63 6f 75 | counter|=max.cou|
|00001390| 6e 74 65 72 3d 63 6f 75 | 6e 74 65 72 2b 31 21 61 |nter=cou|nter+1!a|
|000013a0| 73 63 69 69 3d 6d 69 64 | 28 53 65 6e 64 42 4f 58 |scii=mid|(SendBOX|
|000013b0| 2e 54 65 78 74 2c 63 6f | 75 6e 74 65 72 2c 31 29 |.Text,co|unter,1)|
|000013c0| 0f 6c 65 66 74 3d 61 73 | 63 28 61 73 63 69 69 29 |.left=as|c(ascii)|
|000013d0| 1c 69 66 20 6c 65 66 74 | 3e 33 31 20 61 6e 64 20 |.if left|>31 and |
|000013e0| 6c 65 66 74 3c 31 32 37 | 20 74 68 65 6e 13 61 73 |left<127| then.as|
|000013f0| 63 69 69 3d 63 68 72 28 | 6c 65 66 74 2b 31 32 38 |cii=chr(|left+128|
|00001400| 29 06 65 6e 64 20 69 66 | 1d 54 72 61 6e 73 6c 61 |).end if|.Transla|
|00001410| 74 69 6f 6e 3d 54 72 61 | 6e 73 6c 61 74 69 6f 6e |tion=Tra|nslation|
|00001420| 2b 61 73 63 69 69 04 6c | 6f 6f 70 18 53 65 6e 64 |+ascii.l|oop.Send|
|00001430| 42 4f 58 2e 54 65 78 74 | 3d 54 72 61 6e 73 6c 61 |BOX.Text|=Transla|
|00001440| 74 69 6f 6e 07 45 6e 64 | 20 53 75 62 09 53 74 72 |tion.End| Sub.Str|
|00001450| 54 6f 41 64 64 72 0b 78 | 20 61 73 20 73 74 72 69 |ToAddr.x| as stri|
|00001460| 6e 67 06 73 74 72 69 6e | 67 00 2d 19 2d 19 33 29 |ng.strin|g.-.-.3)|
|00001470| 46 75 6e 63 74 69 6f 6e | 20 53 74 72 54 6f 41 64 |Function| StrToAd|
|00001480| 64 72 28 78 20 61 73 20 | 73 74 72 69 6e 67 29 20 |dr(x as |string) |
|00001490| 41 73 20 73 74 72 69 6e | 67 3f 2f 2f 20 62 69 67 |As strin|g?// big|
|000014a0| 20 6e 61 73 74 79 20 75 | 67 6c 79 20 72 6f 75 74 | nasty u|gly rout|
|000014b0| 69 6e 65 20 74 6f 20 63 | 6f 6e 76 65 72 74 20 61 |ine to c|onvert a|
|000014c0| 20 73 74 72 69 6e 67 20 | 74 6f 20 61 6e 20 49 50 | string |to an IP|
|000014d0| 20 61 64 64 72 65 73 73 | 2c 39 2f 2f 20 57 49 54 | address|,9// WIT|
|000014e0| 48 20 56 41 4c 49 44 41 | 54 49 4f 4e 2e 20 20 59 |H VALIDA|TION. Y|
|000014f0| 65 61 20 49 20 70 72 6f | 62 61 62 6c 79 20 73 68 |ea I pro|bably sh|
|00001500| 6f 75 6c 64 20 68 61 76 | 65 20 75 73 65 64 20 74 |ould hav|e used t|
|00001510| 68 65 20 38 2f 2f 20 74 | 68 69 6e 67 69 65 20 74 |he 8// t|hingie t|
|00001520| 68 61 74 20 70 61 72 73 | 65 73 20 66 72 6f 6d 20 |hat pars|es from |
|00001530| 64 65 6c 69 6d 69 74 65 | 72 73 20 61 6e 64 20 75 |delimite|rs and u|
|00001540| 73 65 64 20 22 2e 22 20 | 61 73 20 61 29 2f 2f 20 |sed "." |as a)// |
|00001550| 64 65 6c 69 6d 69 74 65 | 72 2c 20 62 75 74 20 6f |delimite|r, but o|
|00001560| 77 65 6c 6c 2c 20 6d 61 | 79 62 65 20 6e 65 78 74 |well, ma|ybe next|
|00001570| 20 74 69 6d 65 2e 19 64 | 69 6d 20 54 72 61 6e 73 | time..d|im Trans|
|00001580| 6c 61 74 69 6f 6e 20 61 | 73 20 73 74 72 69 6e 67 |lation a|s string|
|00001590| 13 64 69 6d 20 41 73 63 | 69 69 20 61 73 20 73 74 |.dim Asc|ii as st|
|000015a0| 72 69 6e 67 16 64 69 6d | 20 43 6f 75 6e 74 65 72 |ring.dim| Counter|
|000015b0| 20 61 73 20 69 6e 74 65 | 67 65 72 14 64 69 6d 20 | as inte|ger.dim |
|000015c0| 45 72 72 6f 72 20 61 73 | 20 62 6f 6f 6c 65 61 6e |Error as| boolean|
|000015d0| 13 64 69 6d 20 6c 65 66 | 74 20 61 73 20 69 6e 74 |.dim lef|t as int|
|000015e0| 65 67 65 72 0e 74 72 61 | 6e 73 6c 61 74 69 6f 6e |eger.tra|nslation|
|000015f0| 3d 22 22 0b 61 73 63 69 | 69 3d 78 2b 22 2e 22 09 |="".asci|i=x+".".|
|00001600| 63 6f 75 6e 74 65 72 3d | 30 0b 65 72 72 6f 72 3d |counter=|0.error=|
|00001610| 66 61 6c 73 65 8e 01 64 | 6f 20 75 6e 74 69 6c 20 |false..d|o until |
|00001620| 63 6f 75 6e 74 65 72 3d | 34 20 6f 72 20 65 72 72 |counter=|4 or err|
|00001630| 6f 72 20 6f 72 20 6c 65 | 6e 28 61 73 63 69 69 29 |or or le|n(ascii)|
|00001640| 3d 30 20 6f 72 20 49 6e | 53 74 72 28 4e 75 6d 65 |=0 or In|Str(Nume|
|00001650| 72 61 6c 73 2c 6c 65 66 | 74 28 61 73 63 69 69 2c |rals,lef|t(ascii,|
|00001660| 31 29 29 3d 30 06 6c 65 | 66 74 3d 30 27 69 66 20 |1))=0.le|ft=0'if |
|00001670| 49 6e 53 74 72 28 4e 75 | 6d 65 72 61 6c 73 2c 6c |InStr(Nu|merals,l|
|00001680| 65 66 74 28 61 73 63 69 | 69 2c 31 29 29 3d 30 20 |eft(asci|i,1))=0 |
|00001690| 74 68 65 6e 0a 65 72 72 | 6f 72 3d 74 72 75 65 04 |then.err|or=true.|
|000016a0| 65 6c 73 65 38 64 6f 20 | 75 6e 74 69 6c 20 6c 65 |else8do |until le|
|000016b0| 6e 28 61 73 63 69 69 29 | 3d 30 20 6f 72 20 49 6e |n(ascii)|=0 or In|
|000016c0| 53 74 72 28 4e 75 6d 65 | 72 61 6c 73 2c 6c 65 66 |Str(Nume|rals,lef|
|000016d0| 74 28 61 73 63 69 69 2c | 31 29 29 3d 30 1f 6c 65 |t(ascii,|1))=0.le|
|000016e0| 66 74 3d 6c 65 66 74 2a | 31 30 2b 76 61 6c 28 6c |ft=left*|10+val(l|
|000016f0| 65 66 74 28 61 73 63 69 | 69 2c 31 29 29 1f 61 73 |eft(asci|i,1)).as|
|00001700| 63 69 69 3d 72 69 67 68 | 74 28 61 73 63 69 69 2c |cii=righ|t(ascii,|
|00001710| 6c 65 6e 28 61 73 63 69 | 69 29 2d 31 29 04 6c 6f |len(asci|i)-1).lo|
|00001720| 6f 70 19 69 66 20 6c 65 | 66 74 28 61 73 63 69 69 |op.if le|ft(ascii|
|00001730| 2c 31 29 3d 22 2e 22 20 | 74 68 65 6e 10 69 66 20 |,1)="." |then.if |
|00001740| 6c 65 66 74 3e 32 35 35 | 20 74 68 65 6e 0a 65 72 |left>255| then.er|
|00001750| 72 6f 72 3d 74 72 75 65 | 04 65 6c 73 65 1f 61 73 |ror=true|.else.as|
|00001760| 63 69 69 3d 72 69 67 68 | 74 28 61 73 63 69 69 2c |cii=righ|t(ascii,|
|00001770| 6c 65 6e 28 61 73 63 69 | 69 29 2d 31 29 11 63 6f |len(asci|i)-1).co|
|00001780| 75 6e 74 65 72 3d 63 6f | 75 6e 74 65 72 2b 31 25 |unter=co|unter+1%|
|00001790| 74 72 61 6e 73 6c 61 74 | 69 6f 6e 3d 74 72 61 6e |translat|ion=tran|
|000017a0| 73 6c 61 74 69 6f 6e 2b | 73 74 72 28 6c 65 66 74 |slation+|str(left|
|000017b0| 29 2b 22 2e 22 06 65 6e | 64 20 69 66 04 65 6c 73 |)+".".en|d if.els|
|000017c0| 65 0a 65 72 72 6f 72 3d | 74 72 75 65 06 65 6e 64 |e.error=|true.end|
|000017d0| 20 69 66 06 65 6e 64 20 | 69 66 04 6c 6f 6f 70 1a | if.end |if.loop.|
|000017e0| 69 66 20 65 72 72 6f 72 | 20 6f 72 20 63 6f 75 6e |if error| or coun|
|000017f0| 74 65 72 3c 34 20 74 68 | 65 6e 09 72 65 74 75 72 |ter<4 th|en.retur|
|00001800| 6e 20 22 22 04 65 6c 73 | 65 2b 72 65 74 75 72 6e |n "".els|e+return|
|00001810| 20 6c 65 66 74 28 74 72 | 61 6e 73 6c 61 74 69 6f | left(tr|anslatio|
|00001820| 6e 2c 6c 65 6e 28 74 72 | 61 6e 73 6c 61 74 69 6f |n,len(tr|anslatio|
|00001830| 6e 29 2d 31 29 06 65 6e | 64 20 69 66 10 2f 2f 20 |n)-1).en|d if.// |
|00001840| 69 66 20 65 72 72 6f 72 | 20 74 68 65 6e 14 2f 2f |if error| then.//|
|00001850| 20 20 20 20 72 65 74 75 | 72 6e 20 22 45 72 72 6f | retu|rn "Erro|
|00001860| 72 22 07 2f 2f 20 65 6c | 73 65 17 2f 2f 20 20 20 |r".// el|se.// |
|00001870| 20 69 66 20 63 6f 75 6e | 74 65 72 3c 34 20 74 68 | if coun|ter<4 th|
|00001880| 65 6e 2a 2f 2f 20 20 20 | 20 20 20 20 72 65 74 75 |en*// | retu|
|00001890| 72 6e 20 22 74 6f 6f 20 | 66 65 77 28 22 2b 74 72 |rn "too |few("+tr|
|000018a0| 61 6e 73 6c 61 74 69 6f | 6e 2b 22 29 22 0a 2f 2f |anslatio|n+")".//|
|000018b0| 20 20 20 20 65 6c 73 65 | 34 2f 2f 20 20 20 20 20 | else|4// |
|000018c0| 20 20 72 65 74 75 72 6e | 20 6c 65 66 74 28 74 72 | return| left(tr|
|000018d0| 61 6e 73 6c 61 74 69 6f | 6e 2c 6c 65 6e 28 74 72 |anslatio|n,len(tr|
|000018e0| 61 6e 73 6c 61 74 69 6f | 6e 29 2d 31 29 0c 2f 2f |anslatio|n)-1).//|
|000018f0| 20 20 20 20 65 6e 64 20 | 69 66 09 2f 2f 20 65 6e | end |if.// en|
|00001900| 64 20 69 66 0c 45 6e 64 | 20 46 75 6e 63 74 69 6f |d if.End| Functio|
|00001910| 6e 07 43 6f 6e 6e 65 63 | 74 00 00 00 03 19 03 19 |n.Connec|t.......|
|00001920| 0a 0d 53 75 62 20 43 6f | 6e 6e 65 63 74 28 29 19 |..Sub Co|nnect().|
|00001930| 2f 2f 20 65 73 74 61 62 | 6c 69 73 68 20 61 20 63 |// estab|lish a c|
|00001940| 6f 6e 6e 65 63 74 69 6f | 6e 17 4c 69 73 74 65 6e |onnectio|n.Listen|
|00001950| 42 54 4e 2e 65 6e 61 62 | 6c 65 64 3d 66 61 6c 73 |BTN.enab|led=fals|
|00001960| 65 1a 43 6f 6e 6e 65 63 | 74 42 54 4e 2e 43 61 70 |e.Connec|tBTN.Cap|
|00001970| 74 69 6f 6e 3d 22 41 62 | 6f 72 74 22 17 54 65 73 |tion="Ab|ort".Tes|
|00001980| 74 53 4f 43 2e 41 64 64 | 72 65 73 73 3d 41 64 64 |tSOC.Add|ress=Add|
|00001990| 72 65 73 73 11 54 65 73 | 74 53 4f 43 2e 50 6f 72 |ress.Tes|tSOC.Por|
|000019a0| 74 3d 50 6f 72 74 15 51 | 75 69 74 42 54 4e 2e 65 |t=Port.Q|uitBTN.e|
|000019b0| 6e 61 62 6c 65 64 3d 66 | 61 6c 73 65 0f 54 65 73 |nabled=f|alse.Tes|
|000019c0| 74 53 4f 43 2e 43 6f 6e | 6e 65 63 74 10 53 65 6e |tSOC.Con|nect.Sen|
|000019d0| 64 42 4f 58 2e 53 65 74 | 46 6f 63 75 73 07 45 6e |dBOX.Set|Focus.En|
|000019e0| 64 20 53 75 62 0a 44 69 | 73 63 6f 6e 6e 65 63 74 |d Sub.Di|sconnect|
|000019f0| 00 00 00 0f 00 0f 13 12 | 10 53 75 62 20 44 69 73 |........|.Sub Dis|
|00001a00| 63 6f 6e 6e 65 63 74 28 | 29 00 81 01 2f 2f 20 68 |connect(|)...// h|
|00001a10| 61 6e 67 20 75 70 20 6f | 6e 20 74 68 65 6d 2c 20 |ang up o|n them, |
|00001a20| 6f 72 20 70 75 74 20 64 | 6f 77 6e 20 74 68 65 20 |or put d|own the |
|00001a30| 72 65 63 65 69 76 65 72 | 20 69 66 20 77 65 20 67 |receiver| if we g|
|00001a40| 6f 74 20 68 75 6e 67 20 | 75 70 20 6f 6e 00 15 53 |ot hung |up on..S|
|00001a50| 65 6e 64 42 54 4e 2e 45 | 6e 61 62 6c 65 64 3d 66 |endBTN.E|nabled=f|
|00001a60| 61 6c 73 65 17 41 64 64 | 72 65 73 73 42 4f 58 2e |alse.Add|ressBOX.|
|00001a70| 45 6e 61 62 6c 65 64 3d | 74 72 75 65 14 50 6f 72 |Enabled=|true.Por|
|00001a80| 74 42 4f 58 2e 45 6e 61 | 62 6c 65 64 3d 74 72 75 |tBOX.Ena|bled=tru|
|00001a90| 65 1c 43 6f 6e 6e 65 63 | 74 42 54 4e 2e 43 61 70 |e.Connec|tBTN.Cap|
|00001aa0| 74 69 6f 6e 3d 22 43 6f | 6e 6e 65 63 74 22 0f 43 |tion="Co|nnect".C|
|00001ab0| 6f 6e 6e 65 63 74 65 64 | 3d 66 61 6c 73 65 1a 4c |onnected|=false.L|
|00001ac0| 69 73 74 65 6e 42 54 4e | 2e 43 61 70 74 69 6f 6e |istenBTN|.Caption|
|00001ad0| 3d 22 4c 69 73 74 65 6e | 22 16 4c 69 73 74 65 6e |="Listen|".Listen|
|00001ae0| 42 54 4e 2e 65 6e 61 62 | 6c 65 64 3d 74 72 75 65 |BTN.enab|led=true|
|00001af0| 0f 4c 69 73 74 65 6e 69 | 6e 67 3d 66 61 6c 73 65 |.Listeni|ng=false|
|00001b00| 0d 54 65 73 74 53 4f 43 | 2e 43 6c 6f 73 65 1f 4c |.TestSOC|.Close.L|
|00001b10| 6f 63 61 6c 54 58 54 2e | 74 65 78 74 3d 22 28 6e |ocalTXT.|text="(n|
|00001b20| 6f 74 20 63 6f 6e 6e 65 | 63 74 65 64 29 22 14 51 |ot conne|cted)".Q|
|00001b30| 75 69 74 42 54 4e 2e 65 | 6e 61 62 6c 65 64 3d 74 |uitBTN.e|nabled=t|
|00001b40| 72 75 65 3e 43 6f 6e 6e | 65 63 74 42 54 4e 2e 45 |rue>Conn|ectBTN.E|
|00001b50| 6e 61 62 6c 65 64 3d 28 | 41 64 64 72 65 73 73 3c |nabled=(|Address<|
|00001b60| 3e 22 22 20 61 6e 64 20 | 70 6f 72 74 3e 2d 31 20 |>"" and |port>-1 |
|00001b70| 61 6e 64 20 6e 6f 74 20 | 6c 69 73 74 65 6e 69 6e |and not |listenin|
|00001b80| 67 29 00 07 45 6e 64 20 | 53 75 62 08 55 70 64 61 |g)..End |Sub.Upda|
|00001b90| 74 65 52 78 00 00 00 04 | 00 04 0f 06 0e 53 75 62 |teRx....|.....Sub|
|00001ba0| 20 55 70 64 61 74 65 52 | 78 28 29 2b 2f 2f 20 6a | UpdateR|x()+// j|
|00001bb0| 75 73 74 20 6b 65 65 70 | 20 74 68 65 20 73 74 61 |ust keep| the sta|
|00001bc0| 74 73 20 63 75 72 72 65 | 6e 74 20 6f 6e 20 74 68 |ts curre|nt on th|
|00001bd0| 65 20 62 6f 61 72 64 1e | 43 6c 65 61 72 42 54 4e |e board.|ClearBTN|
|00001be0| 2e 45 6e 61 62 6c 65 64 | 3d 28 52 78 50 61 63 6b |.Enabled|=(RxPack|
|00001bf0| 65 74 73 3e 30 29 1a 42 | 79 74 65 73 54 58 54 2e |ets>0).B|ytesTXT.|
|00001c00| 54 65 78 74 3d 73 74 72 | 28 52 78 42 79 74 65 73 |Text=str|(RxBytes|
|00001c10| 29 1e 50 61 63 6b 65 74 | 73 54 58 54 2e 54 65 78 |).Packet|sTXT.Tex|
|00001c20| 74 3d 73 74 72 28 52 78 | 50 61 63 6b 65 74 73 29 |t=str(Rx|Packets)|
|00001c30| 07 45 6e 64 20 53 75 62 | 06 4c 69 73 74 65 6e 00 |.End Sub|.Listen.|
|00001c40| 00 00 02 00 02 13 0b 0c | 53 75 62 20 4c 69 73 74 |........|Sub List|
|00001c50| 65 6e 28 29 3c 2f 2f 20 | 73 74 61 72 74 20 6c 69 |en()<// |start li|
|00001c60| 73 74 65 6e 69 6e 67 20 | 66 6f 72 20 63 6f 6e 6e |stening |for conn|
|00001c70| 65 63 74 69 6f 6e 73 20 | 6f 6e 20 74 68 69 73 20 |ections |on this |
|00001c80| 70 6f 72 74 28 66 72 6f | 6d 20 61 6e 79 20 49 50 |port(fro|m any IP|
|00001c90| 29 18 43 6f 6e 6e 65 63 | 74 42 54 4e 2e 65 6e 61 |).Connec|tBTN.ena|
|00001ca0| 62 6c 65 64 3d 66 61 6c | 73 65 1a 4c 69 73 74 65 |bled=fal|se.Liste|
|00001cb0| 6e 42 54 4e 2e 43 61 70 | 74 69 6f 6e 3d 22 52 65 |nBTN.Cap|tion="Re|
|00001cc0| 6a 65 63 74 22 0e 4c 69 | 73 74 65 6e 69 6e 67 3d |ject".Li|stening=|
|00001cd0| 74 72 75 65 15 50 6f 72 | 74 42 4f 58 2e 65 6e 61 |true.Por|tBOX.ena|
|00001ce0| 62 6c 65 64 3d 66 61 6c | 73 65 17 54 65 73 74 53 |bled=fal|se.TestS|
|00001cf0| 4f 43 2e 41 64 64 72 65 | 73 73 3d 41 64 64 72 65 |OC.Addre|ss=Addre|
|00001d00| 73 73 11 54 65 73 74 53 | 4f 43 2e 50 6f 72 74 3d |ss.TestS|OC.Port=|
|00001d10| 50 6f 72 74 15 51 75 69 | 74 42 54 4e 2e 65 6e 61 |Port.Qui|tBTN.ena|
|00001d20| 62 6c 65 64 3d 66 61 6c | 73 65 0e 54 65 73 74 53 |bled=fal|se.TestS|
|00001d30| 4f 43 2e 4c 69 73 74 65 | 6e 07 45 6e 64 20 53 75 |OC.Liste|n.End Su|
|00001d40| 62 09 43 6c 69 70 53 6f | 75 6e 64 00 00 00 03 1a |b.ClipSo|und.....|
|00001d50| 03 1a 11 0f 53 75 62 20 | 43 6c 69 70 53 6f 75 6e |....Sub |ClipSoun|
|00001d60| 64 28 29 00 3e 2f 2f 20 | 50 6c 61 79 73 20 61 20 |d().>// |Plays a |
|00001d70| 76 65 72 79 20 62 72 69 | 65 66 20 6d 75 73 69 63 |very bri|ef music|
|00001d80| 61 6c 20 6e 6f 74 65 20 | 74 6f 20 6c 65 74 20 79 |al note |to let y|
|00001d90| 6f 75 20 6b 6e 6f 77 20 | 69 74 20 66 69 6e 69 73 |ou know |it finis|
|00001da0| 68 65 64 3b 2f 2f 20 77 | 68 61 74 65 76 65 72 20 |hed;// w|hatever |
|00001db0| 69 74 20 77 61 73 20 64 | 6f 69 6e 67 2e 28 63 6f |it was d|oing.(co|
|00001dc0| 70 79 69 6e 67 20 74 6f | 20 63 6c 69 70 62 6f 61 |pying to| clipboa|
|00001dd0| 72 64 20 6d 6f 73 74 20 | 6c 69 6b 65 6c 79 29 00 |rd most |likely).|
|00001de0| 17 64 69 6d 20 44 75 72 | 61 74 69 6f 6e 20 61 73 |.dim Dur|ation as|
|00001df0| 20 69 6e 74 65 67 65 72 | 18 64 69 6d 20 53 74 61 | integer|.dim Sta|
|00001e00| 72 74 54 69 6d 65 20 61 | 73 20 69 6e 74 65 67 65 |rtTime a|s intege|
|00001e10| 72 00 12 69 66 20 50 6c | 61 79 53 6f 75 6e 64 73 |r..if Pl|aySounds|
|00001e20| 20 74 68 65 6e 18 46 6c | 75 74 65 4d 55 53 2e 50 | then.Fl|uteMUS.P|
|00001e30| 6c 61 79 4e 6f 74 65 20 | 38 30 2c 31 32 30 14 44 |layNote |80,120.D|
|00001e40| 75 72 61 74 69 6f 6e 3d | 31 30 30 30 30 30 30 2a |uration=|1000000*|
|00001e50| 30 2e 32 16 53 74 61 72 | 74 54 69 6d 65 3d 4d 69 |0.2.Star|tTime=Mi|
|00001e60| 63 72 6f 73 65 63 6f 6e | 64 73 02 64 6f 2a 6c 6f |crosecon|ds.do*lo|
|00001e70| 6f 70 20 75 6e 74 69 6c | 20 4d 69 63 72 6f 73 65 |op until| Microse|
|00001e80| 63 6f 6e 64 73 3e 53 74 | 61 72 74 54 69 6d 65 2b |conds>St|artTime+|
|00001e90| 44 75 72 61 74 69 6f 6e | 16 46 6c 75 74 65 4d 55 |Duration|.FluteMU|
|00001ea0| 53 2e 50 6c 61 79 4e 6f | 74 65 20 38 30 2c 30 06 |S.PlayNo|te 80,0.|
|00001eb0| 65 6e 64 20 69 66 07 45 | 6e 64 20 53 75 62 08 49 |end if.E|nd Sub.I|
|00001ec0| 64 65 6e 74 69 66 79 00 | 00 00 26 00 26 00 3b 0e |dentify.|..&.&.;.|
|00001ed0| 53 75 62 20 49 64 65 6e | 74 69 66 79 28 29 00 80 |Sub Iden|tify()..|
|00001ee0| 01 2f 2f 20 41 74 74 65 | 6d 70 74 20 74 6f 20 72 |.// Atte|mpt to r|
|00001ef0| 65 63 6f 67 6e 69 7a 65 | 20 61 6e 20 61 73 63 69 |ecognize| an asci|
|00001f00| 69 20 73 74 72 65 61 6d | 20 61 73 20 61 20 54 43 |i stream| as a TC|
|00001f10| 50 2f 49 50 20 74 72 61 | 6e 73 61 63 74 69 6f 6e |P/IP tra|nsaction|
|00001f20| 2e 80 01 2f 2f 20 41 6c | 73 6f 20 66 6f 72 6d 75 |...// Al|so formu|
|00001f30| 6c 61 74 65 20 61 20 22 | 62 65 6c 69 65 76 61 62 |late a "|believab|
|00001f40| 6c 65 22 20 72 65 70 6c | 79 20 66 6f 72 20 74 68 |le" repl|y for th|
|00001f50| 65 20 75 73 65 72 20 74 | 6f 20 73 65 6e 64 20 62 |e user t|o send b|
|00001f60| 61 63 6b 24 2f 2f 20 74 | 6f 20 77 68 6f 6d 65 76 |ack$// t|o whomev|
|00001f70| 65 72 20 73 65 6e 74 20 | 74 68 65 20 74 72 61 6e |er sent |the tran|
|00001f80| 73 61 63 74 69 6f 6e 2e | 00 86 01 64 69 6d 20 41 |saction.|...dim A|
|00001f90| 75 74 6f 52 65 70 6c 79 | 20 61 73 20 69 6e 74 65 |utoReply| as inte|
|00001fa0| 67 65 72 20 2f 2f 20 74 | 68 65 20 53 65 6e 64 44 |ger // t|he SendD|
|00001fb0| 61 74 61 50 4f 50 20 6d | 65 6e 75 20 74 6f 20 72 |ataPOP m|enu to r|
|00001fc0| 65 70 6c 79 20 77 69 74 | 68 2c 20 69 66 20 61 6e |eply wit|h, if an|
|00001fd0| 79 15 64 69 6d 20 57 61 | 6c 6b 65 72 20 61 73 20 |y.dim Wa|lker as |
|00001fe0| 69 6e 74 65 67 65 72 19 | 64 69 6d 20 41 63 74 69 |integer.|dim Acti|
|00001ff0| 76 65 47 72 6f 75 70 20 | 61 73 20 73 74 72 69 6e |veGroup |as strin|
|00002000| 67 1a 64 69 6d 20 52 65 | 70 6c 79 4e 75 6d 62 65 |g.dim Re|plyNumbe|
|00002010| 72 20 61 73 20 69 6e 74 | 65 67 65 72 17 64 69 6d |r as int|eger.dim|
|00002020| 20 50 75 72 67 65 4c 65 | 6e 20 61 73 20 69 6e 74 | PurgeLe|n as int|
|00002030| 65 67 65 72 00 29 41 75 | 74 6f 52 65 70 6c 79 3d |eger.)Au|toReply=|
|00002040| 30 20 2f 2f 20 7a 65 72 | 6f 20 6d 65 61 6e 73 20 |0 // zer|o means |
|00002050| 64 6f 6e 27 74 20 61 75 | 74 6f 72 65 70 6c 79 0b |don't au|toreply.|
|00002060| 49 64 65 6e 74 69 74 79 | 3d 22 22 0a 50 75 72 67 |Identity|="".Purg|
|00002070| 65 4c 65 6e 3d 30 00 87 | 01 69 66 20 41 75 74 6f |eLen=0..|.if Auto|
|00002080| 52 65 70 6c 79 50 4f 50 | 2e 4c 69 73 74 49 6e 64 |ReplyPOP|.ListInd|
|00002090| 65 78 3e 30 20 74 68 65 | 6e 20 20 2f 2f 20 67 72 |ex>0 the|n // gr|
|000020a0| 61 62 20 74 68 65 20 61 | 75 74 6f 2d 72 65 70 6c |ab the a|uto-repl|
|000020b0| 79 20 69 66 20 6f 6e 65 | 20 61 70 70 6c 69 65 73 |y if one| applies|
|000020c0| 1d 41 63 74 69 76 65 47 | 72 6f 75 70 3d 41 75 74 |.ActiveG|roup=Aut|
|000020d0| 6f 52 65 70 6c 79 50 4f | 50 2e 74 65 78 74 08 57 |oReplyPO|P.text.W|
|000020e0| 61 6c 6b 65 72 3d 31 25 | 64 6f 20 75 6e 74 69 6c |alker=1%|do until|
|000020f0| 20 57 61 6c 6b 65 72 20 | 3e 20 55 62 6f 75 6e 64 | Walker |> Ubound|
|00002100| 28 4b 6e 6f 77 6e 53 74 | 72 69 6e 67 29 81 01 69 |(KnownSt|ring)..i|
|00002110| 66 20 4b 6e 6f 77 6e 53 | 74 72 69 6e 67 28 57 61 |f KnownS|tring(Wa|
|00002120| 6c 6b 65 72 29 3d 6c 65 | 66 74 28 52 78 46 75 6c |lker)=le|ft(RxFul|
|00002130| 6c 2c 6c 65 6e 28 4b 6e | 6f 77 6e 53 74 72 69 6e |l,len(Kn|ownStrin|
|00002140| 67 28 57 61 6c 6b 65 72 | 29 29 29 20 74 68 65 6e |g(Walker|))) then|
|00002150| 1e 49 64 65 6e 74 69 74 | 79 3d 4b 6e 6f 77 6e 49 |.Identit|y=KnownI|
|00002160| 64 65 6e 74 69 74 79 28 | 57 61 6c 6b 65 72 29 26 |dentity(|Walker)&|
|00002170| 69 66 20 4b 6e 6f 77 6e | 47 72 6f 75 70 28 57 61 |if Known|Group(Wa|
|00002180| 6c 6b 65 72 29 3d 41 63 | 74 69 76 65 47 72 6f 75 |lker)=Ac|tiveGrou|
|00002190| 70 20 74 68 65 6e 1e 41 | 63 74 69 76 65 47 72 6f |p then.A|ctiveGro|
|000021a0| 75 70 3d 4b 6e 6f 77 6e | 52 65 70 6c 79 28 57 61 |up=Known|Reply(Wa|
|000021b0| 6c 6b 65 72 29 34 41 75 | 74 6f 52 65 70 6c 79 3d |lker)4Au|toReply=|
|000021c0| 76 61 6c 28 72 69 67 68 | 74 28 41 63 74 69 76 65 |val(righ|t(Active|
|000021d0| 47 72 6f 75 70 2c 6c 65 | 6e 28 41 63 74 69 76 65 |Group,le|n(Active|
|000021e0| 47 72 6f 75 70 29 2d 31 | 29 29 21 50 75 72 67 65 |Group)-1|))!Purge|
|000021f0| 4c 65 6e 3d 6c 65 6e 28 | 4b 6e 6f 77 6e 53 74 72 |Len=len(|KnownStr|
|00002200| 69 6e 67 28 57 61 6c 6b | 65 72 29 29 1a 57 61 6c |ing(Walk|er)).Wal|
|00002210| 6b 65 72 3d 55 62 6f 75 | 6e 64 28 4b 6e 6f 77 6e |ker=Ubou|nd(Known|
|00002220| 53 74 72 69 6e 67 29 06 | 65 6e 64 20 69 66 06 65 |String).|end if.e|
|00002230| 6e 64 20 69 66 0f 57 61 | 6c 6b 65 72 3d 57 61 6c |nd if.Wa|lker=Wal|
|00002240| 6b 65 72 2b 31 04 6c 6f | 6f 70 35 65 6c 73 65 20 |ker+1.lo|op5else |
|00002250| 20 2f 2f 20 69 66 20 61 | 75 74 6f 72 65 70 6c 79 | // if a|utoreply|
|00002260| 20 69 73 20 6f 66 66 2c | 20 6a 75 73 74 20 74 72 | is off,| just tr|
|00002270| 79 20 74 6f 20 69 64 65 | 6e 74 69 66 79 20 69 74 |y to ide|ntify it|
|00002280| 08 57 61 6c 6b 65 72 3d | 31 25 64 6f 20 75 6e 74 |.Walker=|1%do unt|
|00002290| 69 6c 20 57 61 6c 6b 65 | 72 20 3e 20 55 62 6f 75 |il Walke|r > Ubou|
|000022a0| 6e 64 28 4b 6e 6f 77 6e | 53 74 72 69 6e 67 29 81 |nd(Known|String).|
|000022b0| 01 69 66 20 4b 6e 6f 77 | 6e 53 74 72 69 6e 67 28 |.if Know|nString(|
|000022c0| 57 61 6c 6b 65 72 29 3d | 6c 65 66 74 28 52 78 46 |Walker)=|left(RxF|
|000022d0| 75 6c 6c 2c 6c 65 6e 28 | 4b 6e 6f 77 6e 53 74 72 |ull,len(|KnownStr|
|000022e0| 69 6e 67 28 57 61 6c 6b | 65 72 29 29 29 20 74 68 |ing(Walk|er))) th|
|000022f0| 65 6e 29 69 66 20 50 75 | 72 67 65 4c 65 6e 3c 6c |en)if Pu|rgeLen<l|
|00002300| 65 6e 28 4b 6e 6f 77 6e | 53 74 72 69 6e 67 28 57 |en(Known|String(W|
|00002310| 61 6c 6b 65 72 29 29 20 | 74 68 65 6e 1e 49 64 65 |alker)) |then.Ide|
|00002320| 6e 74 69 74 79 3d 4b 6e | 6f 77 6e 49 64 65 6e 74 |ntity=Kn|ownIdent|
|00002330| 69 74 79 28 57 61 6c 6b | 65 72 29 21 50 75 72 67 |ity(Walk|er)!Purg|
|00002340| 65 4c 65 6e 3d 6c 65 6e | 28 4b 6e 6f 77 6e 53 74 |eLen=len|(KnownSt|
|00002350| 72 69 6e 67 28 57 61 6c | 6b 65 72 29 29 06 65 6e |ring(Wal|ker)).en|
|00002360| 64 20 69 66 06 65 6e 64 | 20 69 66 0f 57 61 6c 6b |d if.end| if.Walk|
|00002370| 65 72 3d 57 61 6c 6b 65 | 72 2b 31 04 6c 6f 6f 70 |er=Walke|r+1.loop|
|00002380| 06 65 6e 64 20 69 66 00 | 00 13 69 66 20 49 64 65 |.end if.|..if Ide|
|00002390| 6e 74 69 74 79 3d 22 22 | 20 74 68 65 6e 13 49 64 |ntity=""| then.Id|
|000023a0| 65 6e 74 69 66 79 54 58 | 54 2e 74 65 78 74 3d 22 |entifyTX|T.text="|
|000023b0| 22 04 65 6c 73 65 29 49 | 64 65 6e 74 69 66 79 54 |".else)I|dentifyT|
|000023c0| 58 54 2e 74 65 78 74 3d | 22 4c 6f 6f 6b 73 20 6c |XT.text=|"Looks l|
|000023d0| 69 6b 65 20 61 20 22 2b | 49 64 65 6e 74 69 74 79 |ike a "+|Identity|
|000023e0| 06 65 6e 64 20 69 66 00 | 13 69 66 20 41 75 74 6f |.end if.|.if Auto|
|000023f0| 52 65 70 6c 79 3e 30 20 | 74 68 65 6e 10 44 6f 41 |Reply>0 |then.DoA|
|00002400| 75 74 6f 52 65 70 6c 79 | 3d 74 72 75 65 1f 53 65 |utoReply|=true.Se|
|00002410| 6e 64 44 61 74 61 50 4f | 50 2e 4c 69 73 74 49 6e |ndDataPO|P.ListIn|
|00002420| 64 65 78 3d 41 75 74 6f | 52 65 70 6c 79 0a 2f 2f |dex=Auto|Reply.//|
|00002430| 20 43 6c 65 61 72 52 78 | 10 50 75 72 67 65 52 78 | ClearRx|.PurgeRx|
|00002440| 20 50 75 72 67 65 4c 65 | 6e 06 65 6e 64 20 69 66 | PurgeLe|n.end if|
|00002450| 00 07 45 6e 64 20 53 75 | 62 0b 55 70 64 61 74 65 |..End Su|b.Update|
|00002460| 52 78 57 69 6e 00 00 00 | 39 1f 39 1f 87 01 11 53 |RxWin...|9.9....S|
|00002470| 75 62 20 55 70 64 61 74 | 65 52 78 57 69 6e 28 29 |ub Updat|eRxWin()|
|00002480| 32 2f 2f 20 6e 65 77 20 | 64 61 74 61 20 68 61 73 |2// new |data has|
|00002490| 20 61 72 72 69 76 65 64 | 20 69 6e 20 52 78 42 75 | arrived| in RxBu|
|000024a0| 66 66 65 72 2c 20 73 6f | 20 77 65 20 6e 65 65 64 |ffer, so| we need|
|000024b0| 20 74 6f 39 2f 2f 20 75 | 70 64 61 74 65 20 74 68 | to9// u|pdate th|
|000024c0| 65 20 72 65 63 65 69 76 | 65 20 62 75 66 66 65 72 |e receiv|e buffer|
|000024d0| 73 20 52 78 48 65 78 2c | 20 52 78 41 73 63 69 69 |s RxHex,| RxAscii|
|000024e0| 2c 20 61 6e 64 20 52 78 | 41 6c 70 68 61 8a 01 2f |, and Rx|Alpha../|
|000024f0| 2f 20 74 68 65 20 67 75 | 74 73 20 6f 66 20 74 68 |/ the gu|ts of th|
|00002500| 65 20 64 69 73 70 6c 61 | 79 20 72 6f 75 74 69 6e |e displa|y routin|
|00002510| 65 2e 20 20 54 68 72 6f | 77 73 20 75 70 20 74 68 |e. Thro|ws up th|
|00002520| 65 20 68 65 78 20 61 6e | 64 20 61 73 63 69 69 20 |e hex an|d ascii |
|00002530| 64 69 73 70 6c 61 79 73 | 2e 00 39 64 69 6d 20 41 |displays|..9dim A|
|00002540| 64 64 72 20 61 73 20 69 | 6e 74 65 67 65 72 20 2f |ddr as i|nteger /|
|00002550| 2f 20 68 65 78 20 61 64 | 64 72 65 73 73 20 73 68 |/ hex ad|dress sh|
|00002560| 6f 77 6e 20 6f 6e 20 6c | 65 66 74 20 77 69 74 68 |own on l|eft with|
|00002570| 20 68 65 78 3c 64 69 6d | 20 52 78 49 6e 64 65 78 | hex<dim| RxIndex|
|00002580| 20 61 73 20 69 6e 74 65 | 67 65 72 20 2f 2f 20 48 | as inte|ger // H|
|00002590| 6f 77 20 66 61 72 20 69 | 6e 74 6f 20 74 68 65 20 |ow far i|nto the |
|000025a0| 6e 65 77 20 70 61 63 6b | 65 74 20 77 65 20 61 72 |new pack|et we ar|
|000025b0| 65 2f 64 69 6d 20 52 78 | 4d 61 78 20 61 73 20 69 |e/dim Rx|Max as i|
|000025c0| 6e 74 65 67 65 72 20 2f | 2f 20 6c 65 6e 67 74 68 |nteger /|/ length|
|000025d0| 20 6f 66 20 6e 65 77 20 | 52 78 20 70 61 63 6b 65 | of new |Rx packe|
|000025e0| 74 87 01 64 69 6d 20 48 | 65 78 4c 69 6e 65 20 61 |t..dim H|exLine a|
|000025f0| 73 20 73 74 72 69 6e 67 | 20 2f 2f 20 63 75 72 72 |s string| // curr|
|00002600| 65 6e 74 20 73 74 72 69 | 6e 67 20 62 65 69 6e 67 |ent stri|ng being|
|00002610| 20 62 75 69 6c 74 20 66 | 6f 72 20 48 65 78 20 76 | built f|or Hex v|
|00002620| 69 65 77 20 62 75 66 66 | 65 72 8b 01 64 69 6d 20 |iew buff|er..dim |
|00002630| 41 73 63 69 69 4c 69 6e | 65 20 61 73 20 73 74 72 |AsciiLin|e as str|
|00002640| 69 6e 67 20 2f 2f 20 63 | 75 72 72 65 6e 74 20 73 |ing // c|urrent s|
|00002650| 74 72 69 6e 67 20 62 65 | 69 6e 67 20 62 75 69 6c |tring be|ing buil|
|00002660| 74 20 66 6f 72 20 41 73 | 63 69 69 20 76 69 65 77 |t for As|cii view|
|00002670| 20 62 75 66 66 65 72 8b | 01 64 69 6d 20 41 6c 70 | buffer.|.dim Alp|
|00002680| 68 61 4c 69 6e 65 20 61 | 73 20 73 74 72 69 6e 67 |haLine a|s string|
|00002690| 20 2f 2f 20 63 75 72 72 | 65 6e 74 20 73 74 72 69 | // curr|ent stri|
|000026a0| 6e 67 20 62 65 69 6e 67 | 20 62 75 69 6c 74 20 66 |ng being| built f|
|000026b0| 6f 72 20 41 6c 70 68 61 | 20 76 69 65 77 20 62 75 |or Alpha| view bu|
|000026c0| 66 66 65 72 86 01 64 69 | 6d 20 46 72 61 6d 65 43 |ffer..di|m FrameC|
|000026d0| 6f 75 6e 74 20 61 73 20 | 69 6e 74 65 67 65 72 20 |ount as |integer |
|000026e0| 2f 2f 20 68 6f 77 20 66 | 61 72 20 61 63 72 6f 73 |// how f|ar acros|
|000026f0| 73 20 74 68 65 20 31 36 | 20 62 79 74 65 20 22 66 |s the 16| byte "f|
|00002700| 72 61 6d 65 22 20 77 65 | 20 61 72 65 89 01 64 69 |rame" we| are..di|
|00002710| 6d 20 42 61 73 65 20 61 | 73 20 69 6e 74 65 67 65 |m Base a|s intege|
|00002720| 72 20 2f 2f 20 69 6e 64 | 65 78 20 6f 66 20 73 74 |r // ind|ex of st|
|00002730| 61 72 74 20 6f 66 20 74 | 68 69 73 20 70 61 63 6b |art of t|his pack|
|00002740| 65 74 20 66 72 6f 6d 20 | 73 74 61 72 74 20 6f 66 |et from |start of|
|00002750| 20 62 75 66 66 65 72 81 | 01 64 69 6d 20 50 72 6f | buffer.|.dim Pro|
|00002760| 63 65 73 73 65 64 20 61 | 73 20 69 6e 74 65 67 65 |cessed a|s intege|
|00002770| 72 20 2f 2f 20 74 6f 74 | 61 6c 20 62 79 74 65 73 |r // tot|al bytes|
|00002780| 20 70 72 6f 63 65 73 73 | 65 64 20 66 72 6f 6d 20 | process|ed from |
|00002790| 74 68 65 20 70 61 63 6b | 65 74 37 64 69 6d 20 47 |the pack|et7dim G|
|000027a0| 6f 74 43 68 61 72 20 61 | 73 20 73 74 72 69 6e 67 |otChar a|s string|
|000027b0| 20 2f 2f 20 74 68 65 20 | 63 68 61 72 61 63 74 65 | // the |characte|
|000027c0| 72 20 77 65 27 72 65 20 | 70 72 6f 63 65 73 73 69 |r we're |processi|
|000027d0| 6e 67 88 01 64 69 6d 20 | 47 6f 74 41 73 63 69 69 |ng..dim |GotAscii|
|000027e0| 20 61 73 20 69 6e 74 65 | 67 65 72 20 2f 2f 20 61 | as inte|ger // a|
|000027f0| 73 63 69 69 20 76 61 6c | 75 65 20 6f 66 20 74 68 |scii val|ue of th|
|00002800| 65 20 63 68 61 72 61 63 | 74 65 72 20 77 65 27 72 |e charac|ter we'r|
|00002810| 65 20 70 72 6f 63 65 73 | 73 69 6e 67 00 1e 52 78 |e proces|sing..Rx|
|00002820| 4d 61 78 3d 6c 65 6e 28 | 52 78 42 75 66 66 65 72 |Max=len(|RxBuffer|
|00002830| 28 52 78 50 61 63 6b 65 | 74 73 29 29 12 42 61 73 |(RxPacke|ts)).Bas|
|00002840| 65 3d 52 78 42 79 74 65 | 73 2d 52 78 4d 61 78 16 |e=RxByte|s-RxMax.|
|00002850| 41 64 64 72 3d 66 6c 6f | 6f 72 28 42 61 73 65 2f |Addr=flo|or(Base/|
|00002860| 31 36 29 2a 31 36 14 46 | 72 61 6d 65 43 6f 75 6e |16)*16.F|rameCoun|
|00002870| 74 3d 42 61 73 65 2d 41 | 64 64 72 09 41 64 64 72 |t=Base-A|ddr.Addr|
|00002880| 3d 42 61 73 65 0b 50 72 | 6f 63 65 73 73 65 64 3d |=Base.Pr|ocessed=|
|00002890| 30 00 82 01 69 66 20 46 | 72 61 6d 65 43 6f 75 6e |0...if F|rameCoun|
|000028a0| 74 3e 30 20 74 68 65 6e | 20 2f 2f 20 6d 75 73 74 |t>0 then| // must|
|000028b0| 20 61 64 64 20 74 6f 20 | 65 78 69 73 74 69 6e 67 | add to |existing|
|000028c0| 20 6c 69 6e 65 20 62 65 | 66 6f 72 65 20 61 64 76 | line be|fore adv|
|000028d0| 61 6e 63 69 6e 67 16 48 | 65 78 4c 69 6e 65 3d 52 |ancing.H|exLine=R|
|000028e0| 78 48 65 78 28 52 78 4c | 69 6e 65 73 29 1a 41 73 |xHex(RxL|ines).As|
|000028f0| 63 69 69 4c 69 6e 65 3d | 52 78 41 73 63 69 69 28 |ciiLine=|RxAscii(|
|00002900| 52 78 4c 69 6e 65 73 29 | 1a 41 6c 70 68 61 4c 69 |RxLines)|.AlphaLi|
|00002910| 6e 65 3d 52 78 41 6c 70 | 68 61 28 52 78 4c 69 6e |ne=RxAlp|ha(RxLin|
|00002920| 65 73 29 02 64 6f 0f 2f | 2f 2a 2a 20 64 6f 20 69 |es).do./|/** do i|
|00002930| 74 20 2a 2a 2f 2f 15 50 | 72 6f 63 65 73 73 65 64 |t **//.P|rocessed|
|00002940| 3d 50 72 6f 63 65 73 73 | 65 64 2b 31 2c 47 6f 74 |=Process|ed+1,Got|
|00002950| 43 68 61 72 3d 6d 69 64 | 28 52 78 42 75 66 66 65 |Char=mid|(RxBuffe|
|00002960| 72 28 52 78 50 61 63 6b | 65 74 73 29 2c 50 72 6f |r(RxPack|ets),Pro|
|00002970| 63 65 73 73 65 64 2c 31 | 29 15 47 6f 74 41 73 63 |cessed,1|).GotAsc|
|00002980| 69 69 3d 61 73 63 28 47 | 6f 74 43 68 61 72 29 23 |ii=asc(G|otChar)#|
|00002990| 48 65 78 4c 69 6e 65 3d | 48 65 78 4c 69 6e 65 2b |HexLine=|HexLine+|
|000029a0| 44 65 63 6f 64 65 48 65 | 78 28 47 6f 74 41 73 63 |DecodeHe|x(GotAsc|
|000029b0| 69 69 29 29 41 73 63 69 | 69 4c 69 6e 65 3d 41 73 |ii))Asci|iLine=As|
|000029c0| 63 69 69 4c 69 6e 65 2b | 44 65 63 6f 64 65 41 73 |ciiLine+|DecodeAs|
|000029d0| 63 69 69 28 47 6f 74 41 | 73 63 69 69 29 29 41 6c |cii(GotA|scii))Al|
|000029e0| 70 68 61 4c 69 6e 65 3d | 41 6c 70 68 61 4c 69 6e |phaLine=|AlphaLin|
|000029f0| 65 2b 44 65 63 6f 64 65 | 41 6c 70 68 61 28 47 6f |e+Decode|Alpha(Go|
|00002a00| 74 41 73 63 69 69 29 17 | 46 72 61 6d 65 43 6f 75 |tAscii).|FrameCou|
|00002a10| 6e 74 3d 46 72 61 6d 65 | 43 6f 75 6e 74 2b 31 0b |nt=Frame|Count+1.|
|00002a20| 41 64 64 72 3d 41 64 64 | 72 2b 31 10 2f 2f 2a 2a |Addr=Add|r+1.//**|
|00002a30| 20 64 69 64 20 69 74 20 | 2a 2a 2f 2f 2b 6c 6f 6f | did it |**//+loo|
|00002a40| 70 20 75 6e 74 69 6c 20 | 46 72 61 6d 65 43 6f 75 |p until |FrameCou|
|00002a50| 6e 74 3d 31 36 20 6f 72 | 20 50 72 6f 63 65 73 73 |nt=16 or| Process|
|00002a60| 65 64 3d 52 78 4d 61 78 | 16 52 78 48 65 78 28 52 |ed=RxMax|.RxHex(R|
|00002a70| 78 4c 69 6e 65 73 29 3d | 48 65 78 4c 69 6e 65 1a |xLines)=|HexLine.|
|00002a80| 52 78 41 73 63 69 69 28 | 52 78 4c 69 6e 65 73 29 |RxAscii(|RxLines)|
|00002a90| 3d 41 73 63 69 69 4c 69 | 6e 65 1a 52 78 41 6c 70 |=AsciiLi|ne.RxAlp|
|00002aa0| 68 61 28 52 78 4c 69 6e | 65 73 29 3d 41 6c 70 68 |ha(RxLin|es)=Alph|
|00002ab0| 61 4c 69 6e 65 06 65 6e | 64 20 69 66 00 3d 64 6f |aLine.en|d if.=do|
|00002ac0| 20 20 75 6e 74 69 6c 20 | 50 72 6f 63 65 73 73 65 | until |Processe|
|00002ad0| 64 3d 52 78 4d 61 78 20 | 2f 2f 20 6e 6f 77 20 64 |d=RxMax |// now d|
|00002ae0| 6f 20 61 6c 6c 20 74 68 | 65 20 72 65 73 74 20 6f |o all th|e rest o|
|00002af0| 66 20 74 68 65 20 6c 69 | 6e 65 73 25 48 65 78 4c |f the li|nes%HexL|
|00002b00| 69 6e 65 3d 72 69 67 68 | 74 28 22 30 30 30 22 2b |ine=righ|t("000"+|
|00002b10| 68 65 78 28 41 64 64 72 | 29 2c 34 29 2b 22 3a 20 |hex(Addr|),4)+": |
|00002b20| 22 0c 41 73 63 69 69 4c | 69 6e 65 3d 22 22 0c 41 |".AsciiL|ine="".A|
|00002b30| 6c 70 68 61 4c 69 6e 65 | 3d 22 22 0c 46 72 61 6d |lphaLine|="".Fram|
|00002b40| 65 43 6f 75 6e 74 3d 30 | 02 64 6f 0f 2f 2f 2a 2a |eCount=0|.do.//**|
|00002b50| 20 64 6f 20 69 74 20 2a | 2a 2f 2f 15 50 72 6f 63 | do it *|*//.Proc|
|00002b60| 65 73 73 65 64 3d 50 72 | 6f 63 65 73 73 65 64 2b |essed=Pr|ocessed+|
|00002b70| 31 2c 47 6f 74 43 68 61 | 72 3d 6d 69 64 28 52 78 |1,GotCha|r=mid(Rx|
|00002b80| 42 75 66 66 65 72 28 52 | 78 50 61 63 6b 65 74 73 |Buffer(R|xPackets|
|00002b90| 29 2c 50 72 6f 63 65 73 | 73 65 64 2c 31 29 15 47 |),Proces|sed,1).G|
|00002ba0| 6f 74 41 73 63 69 69 3d | 61 73 63 28 47 6f 74 43 |otAscii=|asc(GotC|
|00002bb0| 68 61 72 29 23 48 65 78 | 4c 69 6e 65 3d 48 65 78 |har)#Hex|Line=Hex|
|00002bc0| 4c 69 6e 65 2b 44 65 63 | 6f 64 65 48 65 78 28 47 |Line+Dec|odeHex(G|
|00002bd0| 6f 74 41 73 63 69 69 29 | 29 41 73 63 69 69 4c 69 |otAscii)|)AsciiLi|
|00002be0| 6e 65 3d 41 73 63 69 69 | 4c 69 6e 65 2b 44 65 63 |ne=Ascii|Line+Dec|
|00002bf0| 6f 64 65 41 73 63 69 69 | 28 47 6f 74 41 73 63 69 |odeAscii|(GotAsci|
|00002c00| 69 29 29 41 6c 70 68 61 | 4c 69 6e 65 3d 41 6c 70 |i))Alpha|Line=Alp|
|00002c10| 68 61 4c 69 6e 65 2b 44 | 65 63 6f 64 65 41 6c 70 |haLine+D|ecodeAlp|
|00002c20| 68 61 28 47 6f 74 41 73 | 63 69 69 29 17 46 72 61 |ha(GotAs|cii).Fra|
|00002c30| 6d 65 43 6f 75 6e 74 3d | 46 72 61 6d 65 43 6f 75 |meCount=|FrameCou|
|00002c40| 6e 74 2b 31 0b 41 64 64 | 72 3d 41 64 64 72 2b 31 |nt+1.Add|r=Addr+1|
|00002c50| 10 2f 2f 2a 2a 20 64 69 | 64 20 69 74 20 2a 2a 2f |.//** di|d it **/|
|00002c60| 2f 2b 6c 6f 6f 70 20 75 | 6e 74 69 6c 20 46 72 61 |/+loop u|ntil Fra|
|00002c70| 6d 65 43 6f 75 6e 74 3d | 31 36 20 6f 72 20 50 72 |meCount=|16 or Pr|
|00002c80| 6f 63 65 73 73 65 64 3d | 52 78 4d 61 78 11 52 78 |ocessed=|RxMax.Rx|
|00002c90| 4c 69 6e 65 73 3d 52 78 | 4c 69 6e 65 73 2b 31 14 |Lines=Rx|Lines+1.|
|00002ca0| 52 78 48 65 78 2e 41 70 | 70 65 6e 64 20 48 65 78 |RxHex.Ap|pend Hex|
|00002cb0| 4c 69 6e 65 18 52 78 41 | 73 63 69 69 2e 41 70 70 |Line.RxA|scii.App|
|00002cc0| 65 6e 64 20 41 73 63 69 | 69 4c 69 6e 65 18 52 78 |end Asci|iLine.Rx|
|00002cd0| 41 6c 70 68 61 2e 41 70 | 70 65 6e 64 20 41 6c 70 |Alpha.Ap|pend Alp|
|00002ce0| 68 61 4c 69 6e 65 04 6c | 6f 6f 70 00 36 53 65 74 |haLine.l|oop.6Set|
|00002cf0| 52 78 56 69 65 77 20 2f | 2f 20 6d 61 6b 65 20 74 |RxView /|/ make t|
|00002d00| 68 65 20 63 68 61 6e 67 | 65 20 69 6e 20 74 68 65 |he chang|e in the|
|00002d10| 20 76 69 65 77 20 77 69 | 6e 64 6f 77 20 69 74 73 | view wi|ndow its|
|00002d20| 65 6c 66 22 49 64 65 6e | 74 69 66 79 20 2f 2f 20 |elf"Iden|tify // |
|00002d30| 73 65 65 20 69 66 20 77 | 65 20 72 65 63 6f 67 6e |see if w|e recogn|
|00002d40| 69 7a 65 20 69 74 07 45 | 6e 64 20 53 75 62 09 53 |ize it.E|nd Sub.S|
|00002d50| 65 74 52 78 56 69 65 77 | 00 00 00 1a 1e 1a 1e 2e |etRxView|........|
|00002d60| 0f 53 75 62 20 53 65 74 | 52 78 56 69 65 77 28 29 |.Sub Set|RxView()|
|00002d70| 00 3b 2f 2f 20 6e 65 77 | 20 64 61 74 61 20 61 72 |.;// new| data ar|
|00002d80| 72 69 76 65 64 2c 20 6f | 72 20 74 68 65 20 76 69 |rived, o|r the vi|
|00002d90| 65 77 20 66 6f 72 6d 61 | 74 20 77 61 73 20 63 68 |ew forma|t was ch|
|00002da0| 61 6e 67 65 64 20 62 79 | 20 75 73 65 72 2f 2f 2f |anged by| user///|
|00002db0| 20 75 70 64 61 74 65 20 | 74 68 65 20 74 65 78 74 | update |the text|
|00002dc0| 20 69 6e 20 74 68 65 20 | 52 65 63 65 69 76 65 20 | in the |Receive |
|00002dd0| 57 69 6e 64 6f 77 20 69 | 74 73 65 6c 66 00 81 01 |Window i|tself...|
|00002de0| 64 69 6d 20 4f 75 74 42 | 75 66 66 65 72 20 61 73 |dim OutB|uffer as|
|00002df0| 20 73 74 72 69 6e 67 20 | 2f 2f 20 74 65 6d 70 20 | string |// temp |
|00002e00| 74 6f 20 68 6f 6c 64 20 | 74 68 65 20 6f 75 74 70 |to hold |the outp|
|00002e10| 75 74 20 62 65 66 6f 72 | 65 20 73 65 74 74 69 6e |ut befor|e settin|
|00002e20| 67 37 64 69 6d 20 4c 69 | 6e 65 4e 75 6d 62 65 72 |g7dim Li|neNumber|
|00002e30| 20 61 73 20 69 6e 74 65 | 67 65 72 20 2f 2f 20 74 | as inte|ger // t|
|00002e40| 68 65 20 6c 69 6e 65 20 | 77 65 20 61 72 65 20 77 |he line |we are w|
|00002e50| 6f 72 6b 69 6e 67 20 6f | 6e 00 00 0c 4f 75 74 42 |orking o|n...OutB|
|00002e60| 75 66 66 65 72 3d 22 22 | 0c 4c 69 6e 65 4e 75 6d |uffer=""|.LineNum|
|00002e70| 62 65 72 3d 31 11 69 66 | 20 52 78 4c 69 6e 65 73 |ber=1.if| RxLines|
|00002e80| 3e 30 20 74 68 65 6e 18 | 69 66 20 56 69 65 77 48 |>0 then.|if ViewH|
|00002e90| 65 78 52 41 44 2e 76 61 | 6c 75 65 20 74 68 65 6e |exRAD.va|lue then|
|00002ea0| 1c 64 6f 20 75 6e 74 69 | 6c 20 4c 69 6e 65 4e 75 |.do unti|l LineNu|
|00002eb0| 6d 62 65 72 3e 3d 52 78 | 4c 69 6e 65 73 86 01 4f |mber>=Rx|Lines..O|
|00002ec0| 75 74 42 75 66 66 65 72 | 3d 4f 75 74 42 75 66 66 |utBuffer|=OutBuff|
|00002ed0| 65 72 2b 52 78 48 65 78 | 28 4c 69 6e 65 4e 75 6d |er+RxHex|(LineNum|
|00002ee0| 62 65 72 29 2b 22 20 20 | 22 2b 52 78 41 73 63 69 |ber)+" |"+RxAsci|
|00002ef0| 69 28 4c 69 6e 65 4e 75 | 6d 62 65 72 29 2b 63 68 |i(LineNu|mber)+ch|
|00002f00| 72 28 31 33 29 17 4c 69 | 6e 65 4e 75 6d 62 65 72 |r(13).Li|neNumber|
|00002f10| 3d 4c 69 6e 65 4e 75 6d | 62 65 72 2b 31 04 6c 6f |=LineNum|ber+1.lo|
|00002f20| 6f 70 bf 01 4f 75 74 42 | 75 66 66 65 72 3d 4f 75 |op..OutB|uffer=Ou|
|00002f30| 74 42 75 66 66 65 72 2b | 6c 65 66 74 28 52 78 48 |tBuffer+|left(RxH|
|00002f40| 65 78 28 4c 69 6e 65 4e | 75 6d 62 65 72 29 2b 22 |ex(LineN|umber)+"|
|00002f50| 2e 2e 20 2e 2e 20 2e 2e | 20 2e 2e 20 2e 2e 20 2e |.. .. ..| .. .. .|
|00002f60| 2e 20 2e 2e 20 2e 2e 20 | 2e 2e 20 2e 2e 20 2e 2e |. .. .. |.. .. ..|
|00002f70| 20 2e 2e 20 2e 2e 20 2e | 2e 20 2e 2e 20 22 2c 35 | .. .. .|. .. ",5|
|00002f80| 34 29 2b 22 20 20 22 2b | 52 78 41 73 63 69 69 28 |4)+" "+|RxAscii(|
|00002f90| 4c 69 6e 65 4e 75 6d 62 | 65 72 29 2b 63 68 72 28 |LineNumb|er)+chr(|
|00002fa0| 31 33 29 1e 65 6c 73 65 | 69 66 20 56 69 65 77 41 |13).else|if ViewA|
|00002fb0| 6c 70 68 61 52 41 44 2e | 76 61 6c 75 65 20 74 68 |lphaRAD.|value th|
|00002fc0| 65 6e 1c 64 6f 20 75 6e | 74 69 6c 20 4c 69 6e 65 |en.do un|til Line|
|00002fd0| 4e 75 6d 62 65 72 3e 3d | 52 78 4c 69 6e 65 73 86 |Number>=|RxLines.|
|00002fe0| 01 4f 75 74 42 75 66 66 | 65 72 3d 4f 75 74 42 75 |.OutBuff|er=OutBu|
|00002ff0| 66 66 65 72 2b 52 78 48 | 65 78 28 4c 69 6e 65 4e |ffer+RxH|ex(LineN|
|00003000| 75 6d 62 65 72 29 2b 22 | 20 20 22 2b 52 78 41 6c |umber)+"| "+RxAl|
|00003010| 70 68 61 28 4c 69 6e 65 | 4e 75 6d 62 65 72 29 2b |pha(Line|Number)+|
|00003020| 63 68 72 28 31 33 29 17 | 4c 69 6e 65 4e 75 6d 62 |chr(13).|LineNumb|
|00003030| 65 72 3d 4c 69 6e 65 4e | 75 6d 62 65 72 2b 31 04 |er=LineN|umber+1.|
|00003040| 6c 6f 6f 70 bf 01 4f 75 | 74 42 75 66 66 65 72 3d |loop..Ou|tBuffer=|
|00003050| 4f 75 74 42 75 66 66 65 | 72 2b 6c 65 66 74 28 52 |OutBuffe|r+left(R|
|00003060| 78 48 65 78 28 4c 69 6e | 65 4e 75 6d 62 65 72 29 |xHex(Lin|eNumber)|
|00003070| 2b 22 2e 2e 20 2e 2e 20 | 2e 2e 20 2e 2e 20 2e 2e |+".. .. |.. .. ..|
|00003080| 20 2e 2e 20 2e 2e 20 2e | 2e 20 2e 2e 20 2e 2e 20 | .. .. .|. .. .. |
|00003090| 2e 2e 20 2e 2e 20 2e 2e | 20 2e 2e 20 2e 2e 20 22 |.. .. ..| .. .. "|
|000030a0| 2c 35 34 29 2b 22 20 20 | 22 2b 52 78 41 6c 70 68 |,54)+" |"+RxAlph|
|000030b0| 61 28 4c 69 6e 65 4e 75 | 6d 62 65 72 29 2b 63 68 |a(LineNu|mber)+ch|
|000030c0| 72 28 31 33 29 1d 65 6c | 73 65 20 2f 2f 20 6d 75 |r(13).el|se // mu|
|000030d0| 73 74 20 62 65 20 56 69 | 65 77 53 74 72 69 6e 67 |st be Vi|ewString|
|000030e0| 52 41 44 1d 64 6f 20 75 | 6e 74 69 6c 20 4c 69 6e |RAD.do u|ntil Lin|
|000030f0| 65 4e 75 6d 62 65 72 3e | 52 78 50 61 63 6b 65 74 |eNumber>|RxPacket|
|00003100| 73 8c 01 4f 75 74 42 75 | 66 66 65 72 3d 4f 75 74 |s..OutBu|ffer=Out|
|00003110| 42 75 66 66 65 72 2b 52 | 65 70 6c 61 63 65 41 6c |Buffer+R|eplaceAl|
|00003120| 6c 28 52 78 42 75 66 66 | 65 72 28 4c 69 6e 65 4e |l(RxBuff|er(LineN|
|00003130| 75 6d 62 65 72 29 2c 63 | 68 72 28 31 33 29 2b 63 |umber),c|hr(13)+c|
|00003140| 68 72 28 31 30 29 2c 63 | 68 72 28 31 33 29 29 17 |hr(10),c|hr(13)).|
|00003150| 4c 69 6e 65 4e 75 6d 62 | 65 72 3d 4c 69 6e 65 4e |LineNumb|er=LineN|
|00003160| 75 6d 62 65 72 2b 31 04 | 6c 6f 6f 70 06 65 6e 64 |umber+1.|loop.end|
|00003170| 20 69 66 06 65 6e 64 20 | 69 66 00 84 01 2f 2f 20 | if.end |if...// |
|00003180| 73 65 74 20 74 65 78 74 | 20 73 69 7a 65 20 74 6f |set text| size to|
|00003190| 20 31 30 20 69 66 20 73 | 74 72 69 6e 67 20 76 69 | 10 if s|tring vi|
|000031a0| 65 77 2c 20 6f 74 68 65 | 72 77 69 73 65 20 31 32 |ew, othe|rwise 12|
|000031b0| 28 66 6f 6e 74 20 69 73 | 20 43 6f 75 72 69 65 72 |(font is| Courier|
|000031c0| 29 00 1b 69 66 20 56 69 | 65 77 53 74 72 69 6e 67 |)..if Vi|ewString|
|000031d0| 52 41 44 2e 76 61 6c 75 | 65 20 74 68 65 6e 14 52 |RAD.valu|e then.R|
|000031e0| 78 42 4f 58 2e 73 65 6c | 74 65 78 74 73 69 7a 65 |xBOX.sel|textsize|
|000031f0| 3d 31 30 11 52 78 42 4f | 58 2e 74 65 78 74 73 69 |=10.RxBO|X.textsi|
|00003200| 7a 65 3d 31 30 04 65 6c | 73 65 14 52 78 42 4f 58 |ze=10.el|se.RxBOX|
|00003210| 2e 73 65 6c 74 65 78 74 | 73 69 7a 65 3d 31 32 11 |.seltext|size=12.|
|00003220| 52 78 42 4f 58 2e 74 65 | 78 74 73 69 7a 65 3d 31 |RxBOX.te|xtsize=1|
|00003230| 32 06 65 6e 64 20 69 66 | 00 14 52 78 42 4f 58 2e |2.end if|..RxBOX.|
|00003240| 74 65 78 74 3d 4f 75 74 | 42 75 66 66 65 72 11 52 |text=Out|Buffer.R|
|00003250| 78 42 4f 58 2e 53 65 6c | 4c 65 6e 67 74 68 3d 30 |xBOX.Sel|Length=0|
|00003260| 1d 52 78 42 6f 78 2e 53 | 65 6c 53 74 61 72 74 3d |.RxBox.S|elStart=|
|00003270| 6c 65 6e 28 4f 75 74 42 | 75 66 66 65 72 29 07 45 |len(OutB|uffer).E|
|00003280| 6e 64 20 53 75 62 07 43 | 6c 65 61 72 52 78 00 00 |nd Sub.C|learRx..|
|00003290| 00 12 08 12 08 14 0d 53 | 75 62 20 43 6c 65 61 72 |.......S|ub Clear|
|000032a0| 52 78 28 29 00 22 2f 2f | 20 65 72 61 73 65 20 74 |Rx()."//| erase t|
|000032b0| 68 65 20 65 6e 74 69 72 | 65 20 72 65 63 65 69 76 |he entir|e receiv|
|000032c0| 65 20 62 75 66 66 65 72 | 00 11 52 65 44 69 6d 20 |e buffer|..ReDim |
|000032d0| 52 78 42 75 66 66 65 72 | 28 30 29 0e 52 65 44 69 |RxBuffer|(0).ReDi|
|000032e0| 6d 20 52 78 48 65 78 28 | 30 29 10 52 65 44 69 6d |m RxHex(|0).ReDim|
|000032f0| 20 52 78 41 73 63 69 69 | 28 30 29 10 52 65 44 69 | RxAscii|(0).ReDi|
|00003300| 6d 20 52 78 41 6c 70 68 | 61 28 30 29 0b 52 78 50 |m RxAlph|a(0).RxP|
|00003310| 61 63 6b 65 74 73 3d 30 | 09 52 78 42 79 74 65 73 |ackets=0|.RxBytes|
|00003320| 3d 30 09 52 78 4c 69 6e | 65 73 3d 30 09 52 78 46 |=0.RxLin|es=0.RxF|
|00003330| 75 6c 6c 3d 22 22 09 53 | 65 74 52 78 56 69 65 77 |ull="".S|etRxView|
|00003340| 08 49 64 65 6e 74 69 66 | 79 16 43 6c 65 61 72 42 |.Identif|y.ClearB|
|00003350| 54 4e 2e 65 6e 61 62 6c | 65 64 3d 66 61 6c 73 65 |TN.enabl|ed=false|
|00003360| 1b 43 6c 69 70 53 74 72 | 69 6e 67 42 54 4e 2e 65 |.ClipStr|ingBTN.e|
|00003370| 6e 61 62 6c 65 64 3d 66 | 61 6c 73 65 18 43 6c 69 |nabled=f|alse.Cli|
|00003380| 70 48 65 78 42 54 4e 2e | 65 6e 61 62 6c 65 64 3d |pHexBTN.|enabled=|
|00003390| 66 61 6c 73 65 08 55 70 | 64 61 74 65 52 78 08 49 |false.Up|dateRx.I|
|000033a0| 64 65 6e 74 69 66 79 07 | 45 6e 64 20 53 75 62 0e |dentify.|End Sub.|
|000033b0| 41 75 74 6f 52 65 70 6c | 79 53 6f 75 6e 64 00 00 |AutoRepl|ySound..|
|000033c0| 00 03 1a 03 1a 1e 14 53 | 75 62 20 41 75 74 6f 52 |.......S|ub AutoR|
|000033d0| 65 70 6c 79 53 6f 75 6e | 64 28 29 00 33 2f 2f 20 |eplySoun|d().3// |
|000033e0| 50 6c 61 79 73 20 61 20 | 73 65 74 20 6f 66 20 6e |Plays a |set of n|
|000033f0| 6f 74 65 73 20 74 6f 20 | 6c 65 74 20 79 6f 75 20 |otes to |let you |
|00003400| 6b 6e 6f 77 20 69 74 20 | 66 69 6e 69 73 68 65 64 |know it |finished|
|00003410| 34 2f 2f 20 77 68 61 74 | 65 76 65 72 20 69 74 20 |4// what|ever it |
|00003420| 77 61 73 20 64 6f 69 6e | 67 2e 28 61 6e 20 61 75 |was doin|g.(an au|
|00003430| 74 6f 2d 72 65 70 6c 79 | 20 6d 6f 73 74 20 6c 69 |to-reply| most li|
|00003440| 6b 65 6c 79 29 00 17 64 | 69 6d 20 44 75 72 61 74 |kely)..d|im Durat|
|00003450| 69 6f 6e 20 61 73 20 69 | 6e 74 65 67 65 72 18 64 |ion as i|nteger.d|
|00003460| 69 6d 20 53 74 61 72 74 | 54 69 6d 65 20 61 73 20 |im Start|Time as |
|00003470| 69 6e 74 65 67 65 72 00 | 18 46 6c 75 74 65 4d 55 |integer.|.FluteMU|
|00003480| 53 2e 50 6c 61 79 4e 6f | 74 65 20 37 35 2c 31 32 |S.PlayNo|te 75,12|
|00003490| 30 14 44 75 72 61 74 69 | 6f 6e 3d 31 30 30 30 30 |0.Durati|on=10000|
|000034a0| 30 30 2a 30 2e 32 16 53 | 74 61 72 74 54 69 6d 65 |00*0.2.S|tartTime|
|000034b0| 3d 4d 69 63 72 6f 73 65 | 63 6f 6e 64 73 02 64 6f |=Microse|conds.do|
|000034c0| 2a 6c 6f 6f 70 20 75 6e | 74 69 6c 20 4d 69 63 72 |*loop un|til Micr|
|000034d0| 6f 73 65 63 6f 6e 64 73 | 3e 53 74 61 72 74 54 69 |oseconds|>StartTi|
|000034e0| 6d 65 2b 44 75 72 61 74 | 69 6f 6e 16 46 6c 75 74 |me+Durat|ion.Flut|
|000034f0| 65 4d 55 53 2e 50 6c 61 | 79 4e 6f 74 65 20 37 35 |eMUS.Pla|yNote 75|
|00003500| 2c 30 00 18 46 6c 75 74 | 65 4d 55 53 2e 50 6c 61 |,0..Flut|eMUS.Pla|
|00003510| 79 4e 6f 74 65 20 38 35 | 2c 31 32 30 14 44 75 72 |yNote 85|,120.Dur|
|00003520| 61 74 69 6f 6e 3d 31 30 | 30 30 30 30 30 2a 30 2e |ation=10|00000*0.|
|00003530| 32 16 53 74 61 72 74 54 | 69 6d 65 3d 4d 69 63 72 |2.StartT|ime=Micr|
|00003540| 6f 73 65 63 6f 6e 64 73 | 02 64 6f 2a 6c 6f 6f 70 |oseconds|.do*loop|
|00003550| 20 75 6e 74 69 6c 20 4d | 69 63 72 6f 73 65 63 6f | until M|icroseco|
|00003560| 6e 64 73 3e 53 74 61 72 | 74 54 69 6d 65 2b 44 75 |nds>Star|tTime+Du|
|00003570| 72 61 74 69 6f 6e 16 46 | 6c 75 74 65 4d 55 53 2e |ration.F|luteMUS.|
|00003580| 50 6c 61 79 4e 6f 74 65 | 20 38 35 2c 30 00 18 46 |PlayNote| 85,0..F|
|00003590| 6c 75 74 65 4d 55 53 2e | 50 6c 61 79 4e 6f 74 65 |luteMUS.|PlayNote|
|000035a0| 20 37 35 2c 31 32 30 14 | 44 75 72 61 74 69 6f 6e | 75,120.|Duration|
|000035b0| 3d 31 30 30 30 30 30 30 | 2a 30 2e 32 16 53 74 61 |=1000000|*0.2.Sta|
|000035c0| 72 74 54 69 6d 65 3d 4d | 69 63 72 6f 73 65 63 6f |rtTime=M|icroseco|
|000035d0| 6e 64 73 02 64 6f 2a 6c | 6f 6f 70 20 75 6e 74 69 |nds.do*l|oop unti|
|000035e0| 6c 20 4d 69 63 72 6f 73 | 65 63 6f 6e 64 73 3e 53 |l Micros|econds>S|
|000035f0| 74 61 72 74 54 69 6d 65 | 2b 44 75 72 61 74 69 6f |tartTime|+Duratio|
|00003600| 6e 16 46 6c 75 74 65 4d | 55 53 2e 50 6c 61 79 4e |n.FluteM|US.PlayN|
|00003610| 6f 74 65 20 37 35 2c 30 | 00 07 45 6e 64 20 53 75 |ote 75,0|..End Su|
|00003620| 62 04 48 69 4c 6f 0c 78 | 20 61 73 20 69 6e 74 65 |b.HiLo.x| as inte|
|00003630| 67 65 72 06 73 74 72 69 | 6e 67 00 02 83 01 02 83 |ger.stri|ng......|
|00003640| 01 0a 25 46 75 6e 63 74 | 69 6f 6e 20 48 69 4c 6f |..%Funct|ion HiLo|
|00003650| 28 78 20 61 73 20 69 6e | 74 65 67 65 72 29 20 41 |(x as in|teger) A|
|00003660| 73 20 73 74 72 69 6e 67 | 00 83 01 2f 2f 20 72 65 |s string|...// re|
|00003670| 74 75 72 6e 20 61 20 74 | 77 6f 2d 62 79 74 65 20 |turn a t|wo-byte |
|00003680| 72 65 70 72 65 73 65 6e | 74 61 74 69 6f 6e 20 6f |represen|tation o|
|00003690| 66 20 61 20 6e 75 6d 62 | 65 72 2c 20 69 6e 20 68 |f a numb|er, in h|
|000036a0| 69 67 68 2d 6c 6f 77 20 | 66 6f 72 6d 61 74 00 13 |igh-low |format..|
|000036b0| 64 69 6d 20 68 69 67 68 | 20 61 73 20 69 6e 74 65 |dim high| as inte|
|000036c0| 67 65 72 00 11 68 69 67 | 68 3d 66 6c 6f 6f 72 28 |ger..hig|h=floor(|
|000036d0| 78 2f 32 35 36 29 20 72 | 65 74 75 72 6e 20 63 68 |x/256) r|eturn ch|
|000036e0| 72 28 68 69 67 68 29 2b | 63 68 72 28 78 2d 68 69 |r(high)+|chr(x-hi|
|000036f0| 67 68 2a 32 35 36 29 00 | 0c 45 6e 64 20 46 75 6e |gh*256).|.End Fun|
|00003700| 63 74 69 6f 6e 07 4c 53 | 74 72 69 6e 67 0b 78 20 |ction.LS|tring.x |
|00003710| 61 73 20 73 74 72 69 6e | 67 06 73 74 72 69 6e 67 |as strin|g.string|
|00003720| 00 02 2a 02 2a 07 27 46 | 75 6e 63 74 69 6f 6e 20 |..*.*.'F|unction |
|00003730| 4c 53 74 72 69 6e 67 28 | 78 20 61 73 20 73 74 72 |LString(|x as str|
|00003740| 69 6e 67 29 20 41 73 20 | 73 74 72 69 6e 67 00 33 |ing) As |string.3|
|00003750| 2f 2f 20 6a 75 73 74 20 | 61 20 73 74 72 69 6e 67 |// just |a string|
|00003760| 2c 20 70 72 65 63 65 65 | 64 65 64 20 62 79 20 69 |, precee|ded by i|
|00003770| 74 73 20 6c 65 6e 67 74 | 68 28 6f 6e 65 20 62 79 |ts lengt|h(one by|
|00003780| 74 65 29 00 14 72 65 74 | 75 72 6e 20 63 68 72 28 |te)..ret|urn chr(|
|00003790| 6c 65 6e 28 78 29 29 2b | 78 00 0c 45 6e 64 20 46 |len(x))+|x..End F|
|000037a0| 75 6e 63 74 69 6f 6e 0e | 53 6f 75 6e 64 53 74 65 |unction.|SoundSte|
|000037b0| 65 6c 44 72 75 6d 00 00 | 00 03 03 03 03 14 14 53 |elDrum..|.......S|
|000037c0| 75 62 20 53 6f 75 6e 64 | 53 74 65 65 6c 44 72 75 |ub Sound|SteelDru|
|000037d0| 6d 28 29 00 1d 2f 2f 20 | 50 6c 61 79 73 20 61 20 |m()..// |Plays a |
|000037e0| 6d 75 73 69 63 61 6c 20 | 69 6e 73 74 72 75 6d 65 |musical |instrume|
|000037f0| 6e 74 0e 2f 2f 28 73 74 | 65 65 6c 20 64 72 75 6d |nt.//(st|eel drum|
|00003800| 29 00 16 64 69 6d 20 44 | 75 72 61 74 69 6f 6e 20 |)..dim D|uration |
|00003810| 61 73 20 64 6f 75 62 6c | 65 17 64 69 6d 20 53 74 |as doubl|e.dim St|
|00003820| 61 72 74 54 69 6d 65 20 | 61 73 20 64 6f 75 62 6c |artTime |as doubl|
|00003830| 65 00 12 69 66 20 50 6c | 61 79 53 6f 75 6e 64 73 |e..if Pl|aySounds|
|00003840| 20 74 68 65 6e 17 46 6c | 75 74 65 4d 55 53 2e 49 | then.Fl|uteMUS.I|
|00003850| 6e 73 74 72 75 6d 65 6e | 74 3d 31 31 35 00 18 46 |nstrumen|t=115..F|
|00003860| 6c 75 74 65 4d 55 53 2e | 50 6c 61 79 4e 6f 74 65 |luteMUS.|PlayNote|
|00003870| 20 36 35 2c 31 32 37 14 | 44 75 72 61 74 69 6f 6e | 65,127.|Duration|
|00003880| 3d 31 30 30 30 30 30 30 | 2a 30 2e 35 16 53 74 61 |=1000000|*0.5.Sta|
|00003890| 72 74 54 69 6d 65 3d 4d | 69 63 72 6f 73 65 63 6f |rtTime=M|icroseco|
|000038a0| 6e 64 73 02 64 6f 2a 6c | 6f 6f 70 20 75 6e 74 69 |nds.do*l|oop unti|
|000038b0| 6c 20 4d 69 63 72 6f 73 | 65 63 6f 6e 64 73 3e 53 |l Micros|econds>S|
|000038c0| 74 61 72 74 54 69 6d 65 | 2b 44 75 72 61 74 69 6f |tartTime|+Duratio|
|000038d0| 6e 16 46 6c 75 74 65 4d | 55 53 2e 50 6c 61 79 4e |n.FluteM|US.PlayN|
|000038e0| 6f 74 65 20 36 35 2c 30 | 06 65 6e 64 20 69 66 00 |ote 65,0|.end if.|
|000038f0| 07 45 6e 64 20 53 75 62 | 0e 53 6f 75 6e 64 54 65 |.End Sub|.SoundTe|
|00003900| 6c 65 70 68 6f 6e 65 00 | 00 00 03 03 03 03 14 14 |lephone.|........|
|00003910| 53 75 62 20 53 6f 75 6e | 64 54 65 6c 65 70 68 6f |Sub Soun|dTelepho|
|00003920| 6e 65 28 29 00 1d 2f 2f | 20 50 6c 61 79 73 20 61 |ne()..//| Plays a|
|00003930| 20 6d 75 73 69 63 61 6c | 20 69 6e 73 74 72 75 6d | musical| instrum|
|00003940| 65 6e 74 15 2f 2f 28 72 | 69 6e 67 69 6e 67 20 74 |ent.//(r|inging t|
|00003950| 65 6c 65 70 68 6f 6e 65 | 29 00 16 64 69 6d 20 44 |elephone|)..dim D|
|00003960| 75 72 61 74 69 6f 6e 20 | 61 73 20 64 6f 75 62 6c |uration |as doubl|
|00003970| 65 17 64 69 6d 20 53 74 | 61 72 74 54 69 6d 65 20 |e.dim St|artTime |
|00003980| 61 73 20 64 6f 75 62 6c | 65 00 12 69 66 20 50 6c |as doubl|e..if Pl|
|00003990| 61 79 53 6f 75 6e 64 73 | 20 74 68 65 6e 17 46 6c |aySounds| then.Fl|
|000039a0| 75 74 65 4d 55 53 2e 49 | 6e 73 74 72 75 6d 65 6e |uteMUS.I|nstrumen|
|000039b0| 74 3d 31 32 35 00 18 46 | 6c 75 74 65 4d 55 53 2e |t=125..F|luteMUS.|
|000039c0| 50 6c 61 79 4e 6f 74 65 | 20 36 35 2c 31 32 37 14 |PlayNote| 65,127.|
|000039d0| 44 75 72 61 74 69 6f 6e | 3d 31 30 30 30 30 30 30 |Duration|=1000000|
|000039e0| 2a 30 2e 35 16 53 74 61 | 72 74 54 69 6d 65 3d 4d |*0.5.Sta|rtTime=M|
|000039f0| 69 63 72 6f 73 65 63 6f | 6e 64 73 02 64 6f 2c 6c |icroseco|nds.do,l|
|00003a00| 6f 6f 70 20 75 6e 74 69 | 6c 20 4d 69 63 72 6f 73 |oop unti|l Micros|
|00003a10| 65 63 6f 6e 64 73 3e 28 | 53 74 61 72 74 54 69 6d |econds>(|StartTim|
|00003a20| 65 2b 44 75 72 61 74 69 | 6f 6e 29 16 46 6c 75 74 |e+Durati|on).Flut|
|00003a30| 65 4d 55 53 2e 50 6c 61 | 79 4e 6f 74 65 20 36 35 |eMUS.Pla|yNote 65|
|00003a40| 2c 30 06 65 6e 64 20 69 | 66 00 07 45 6e 64 20 53 |,0.end i|f..End S|
|00003a50| 75 62 0b 53 6f 75 6e 64 | 43 61 6e 6e 6f 6e 00 00 |ub.Sound|Cannon..|
|00003a60| 00 03 03 03 03 14 11 53 | 75 62 20 53 6f 75 6e 64 |.......S|ub Sound|
|00003a70| 43 61 6e 6e 6f 6e 28 29 | 00 1d 2f 2f 20 50 6c 61 |Cannon()|..// Pla|
|00003a80| 79 73 20 61 20 6d 75 73 | 69 63 61 6c 20 69 6e 73 |ys a mus|ical ins|
|00003a90| 74 72 75 6d 65 6e 74 0f | 2f 2f 28 63 61 6e 6e 6f |trument.|//(canno|
|00003aa0| 6e 20 66 69 72 65 29 00 | 16 64 69 6d 20 44 75 72 |n fire).|.dim Dur|
|00003ab0| 61 74 69 6f 6e 20 61 73 | 20 64 6f 75 62 6c 65 17 |ation as| double.|
|00003ac0| 64 69 6d 20 53 74 61 72 | 74 54 69 6d 65 20 61 73 |dim Star|tTime as|
|00003ad0| 20 64 6f 75 62 6c 65 00 | 12 69 66 20 50 6c 61 79 | double.|.if Play|
|00003ae0| 53 6f 75 6e 64 73 20 74 | 68 65 6e 17 46 6c 75 74 |Sounds t|hen.Flut|
|00003af0| 65 4d 55 53 2e 49 6e 73 | 74 72 75 6d 65 6e 74 3d |eMUS.Ins|trument=|
|00003b00| 31 32 38 00 18 46 6c 75 | 74 65 4d 55 53 2e 50 6c |128..Flu|teMUS.Pl|
|00003b10| 61 79 4e 6f 74 65 20 34 | 30 2c 31 32 37 14 44 75 |ayNote 4|0,127.Du|
|00003b20| 72 61 74 69 6f 6e 3d 31 | 30 30 30 30 30 30 2a 30 |ration=1|000000*0|
|00003b30| 2e 35 16 53 74 61 72 74 | 54 69 6d 65 3d 4d 69 63 |.5.Start|Time=Mic|
|00003b40| 72 6f 73 65 63 6f 6e 64 | 73 02 64 6f 2a 6c 6f 6f |rosecond|s.do*loo|
|00003b50| 70 20 75 6e 74 69 6c 20 | 4d 69 63 72 6f 73 65 63 |p until |Microsec|
|00003b60| 6f 6e 64 73 3e 53 74 61 | 72 74 54 69 6d 65 2b 44 |onds>Sta|rtTime+D|
|00003b70| 75 72 61 74 69 6f 6e 16 | 46 6c 75 74 65 4d 55 53 |uration.|FluteMUS|
|00003b80| 2e 50 6c 61 79 4e 6f 74 | 65 20 34 30 2c 30 06 65 |.PlayNot|e 40,0.e|
|00003b90| 6e 64 20 69 66 00 07 45 | 6e 64 20 53 75 62 0c 53 |nd if..E|nd Sub.S|
|00003ba0| 6f 75 6e 64 44 72 75 6d | 54 61 70 00 00 00 03 03 |oundDrum|Tap.....|
|00003bb0| 03 03 14 12 53 75 62 20 | 53 6f 75 6e 64 44 72 75 |....Sub |SoundDru|
|00003bc0| 6d 54 61 70 28 29 00 1d | 2f 2f 20 50 6c 61 79 73 |mTap()..|// Plays|
|00003bd0| 20 61 20 6d 75 73 69 63 | 61 6c 20 69 6e 73 74 72 | a music|al instr|
|00003be0| 75 6d 65 6e 74 11 2f 2f | 28 74 61 70 20 6f 66 20 |ument.//|(tap of |
|00003bf0| 61 20 64 72 75 6d 29 00 | 16 64 69 6d 20 44 75 72 |a drum).|.dim Dur|
|00003c00| 61 74 69 6f 6e 20 61 73 | 20 64 6f 75 62 6c 65 17 |ation as| double.|
|00003c10| 64 69 6d 20 53 74 61 72 | 74 54 69 6d 65 20 61 73 |dim Star|tTime as|
|00003c20| 20 64 6f 75 62 6c 65 00 | 12 69 66 20 50 6c 61 79 | double.|.if Play|
|00003c30| 53 6f 75 6e 64 73 20 74 | 68 65 6e 16 46 6c 75 74 |Sounds t|hen.Flut|
|00003c40| 65 4d 55 53 2e 49 6e 73 | 74 72 75 6d 65 6e 74 3d |eMUS.Ins|trument=|
|00003c50| 34 38 00 18 46 6c 75 74 | 65 4d 55 53 2e 50 6c 61 |48..Flut|eMUS.Pla|
|00003c60| 79 4e 6f 74 65 20 38 30 | 2c 31 32 37 14 44 75 72 |yNote 80|,127.Dur|
|00003c70| 61 74 69 6f 6e 3d 31 30 | 30 30 30 30 30 2a 30 2e |ation=10|00000*0.|
|00003c80| 35 16 53 74 61 72 74 54 | 69 6d 65 3d 4d 69 63 72 |5.StartT|ime=Micr|
|00003c90| 6f 73 65 63 6f 6e 64 73 | 02 64 6f 2a 6c 6f 6f 70 |oseconds|.do*loop|
|00003ca0| 20 75 6e 74 69 6c 20 4d | 69 63 72 6f 73 65 63 6f | until M|icroseco|
|00003cb0| 6e 64 73 3e 53 74 61 72 | 74 54 69 6d 65 2b 44 75 |nds>Star|tTime+Du|
|00003cc0| 72 61 74 69 6f 6e 16 46 | 6c 75 74 65 4d 55 53 2e |ration.F|luteMUS.|
|00003cd0| 50 6c 61 79 4e 6f 74 65 | 20 38 30 2c 30 06 65 6e |PlayNote| 80,0.en|
|00003ce0| 64 20 69 66 00 07 45 6e | 64 20 53 75 62 0d 44 65 |d if..En|d Sub.De|
|00003cf0| 63 6c 61 69 72 50 6f 70 | 75 70 73 00 00 00 91 01 |clairPop|ups.....|
|00003d00| 31 91 01 31 9b 01 13 53 | 75 62 20 44 65 63 6c 61 |1..1...S|ub Decla|
|00003d10| 69 72 50 6f 70 75 70 73 | 28 29 00 83 01 2f 2f 20 |irPopups|()...// |
|00003d20| 6c 6f 61 64 20 75 70 20 | 74 68 65 20 70 6f 70 75 |load up |the popu|
|00003d30| 70 73 20 77 69 74 68 20 | 73 70 65 63 69 61 6c 20 |ps with |special |
|00003d40| 54 43 50 2f 49 50 20 73 | 74 72 69 6e 67 73 20 61 |TCP/IP s|trings a|
|00003d50| 6e 64 20 72 65 73 70 6f | 6e 73 65 73 20 65 74 63 |nd respo|nses etc|
|00003d60| 00 14 64 69 6d 20 48 65 | 61 64 65 72 20 61 73 20 |..dim He|ader as |
|00003d70| 73 74 72 69 6e 67 12 64 | 69 6d 20 42 6f 64 79 20 |string.d|im Body |
|00003d80| 61 73 20 73 74 72 69 6e | 67 13 64 69 6d 20 42 6f |as strin|g.dim Bo|
|00003d90| 64 79 31 20 61 73 20 73 | 74 72 69 6e 67 13 64 69 |dy1 as s|tring.di|
|00003da0| 6d 20 42 6f 64 79 32 20 | 61 73 20 73 74 72 69 6e |m Body2 |as strin|
|00003db0| 67 00 15 64 69 6d 20 57 | 61 6c 6b 65 72 20 61 73 |g..dim W|alker as|
|00003dc0| 20 69 6e 74 65 67 65 72 | 00 22 2f 2f 20 69 6e 69 | integer|."// ini|
|00003dd0| 74 20 74 6f 70 28 64 65 | 66 61 75 6c 74 29 20 65 |t top(de|fault) e|
|00003de0| 6e 74 72 69 65 73 20 66 | 69 72 73 74 00 1f 53 65 |ntries f|irst..Se|
|00003df0| 6e 64 44 61 74 61 50 4f | 50 2e 61 64 64 72 6f 77 |ndDataPO|P.addrow|
|00003e00| 20 22 75 73 65 72 20 65 | 6e 74 72 79 22 24 41 75 | "user e|ntry"$Au|
|00003e10| 74 6f 52 65 70 6c 79 50 | 4f 50 2e 61 64 64 72 6f |toReplyP|OP.addro|
|00003e20| 77 20 22 61 75 74 6f 2d | 72 65 70 6c 79 20 4f 46 |w "auto-|reply OF|
|00003e30| 46 22 21 43 6f 6e 6e 65 | 63 74 69 6f 6e 50 4f 50 |F"!Conne|ctionPOP|
|00003e40| 2e 61 64 64 72 6f 77 20 | 22 75 73 65 72 20 65 6e |.addrow |"user en|
|00003e50| 74 72 79 22 00 00 87 01 | 2f 2f 20 64 65 73 63 72 |try"....|// descr|
|00003e60| 69 62 65 20 74 68 65 20 | 6b 6e 6f 77 6e 20 73 74 |ibe the |known st|
|00003e70| 72 69 6e 67 73 2c 20 67 | 72 6f 75 70 73 20 74 68 |rings, g|roups th|
|00003e80| 65 79 20 61 72 65 20 69 | 6e 2c 20 61 6e 64 20 72 |ey are i|n, and r|
|00003e90| 65 73 70 6f 6e 73 65 28 | 69 66 20 61 6e 79 29 00 |esponse(|if any).|
|00003ea0| 34 2f 2f 20 44 65 73 63 | 72 69 62 65 53 74 72 69 |4// Desc|ribeStri|
|00003eb0| 6e 67 28 73 74 72 69 6e | 67 2c 64 65 73 63 72 69 |ng(strin|g,descri|
|00003ec0| 70 74 69 6f 6e 2c 67 72 | 6f 75 70 2c 72 65 73 70 |ption,gr|oup,resp|
|00003ed0| 6f 6e 73 65 29 27 2f 2f | 20 20 20 62 6c 61 6e 6b |onse)'//| blank|
|00003ee0| 20 72 65 73 70 6f 6e 73 | 65 20 6d 65 61 6e 73 20 | respons|e means |
|00003ef0| 6e 6f 20 61 75 74 6f 2d | 72 65 70 6c 79 00 9a 01 |no auto-|reply...|
|00003f00| 44 65 73 63 72 69 62 65 | 53 74 72 69 6e 67 20 22 |Describe|String "|
|00003f10| 48 54 52 4b 22 2b 63 68 | 72 28 30 29 2b 63 68 72 |HTRK"+ch|r(0)+chr|
|00003f20| 28 31 29 2c 22 48 4c 20 | 54 72 61 63 6b 65 72 20 |(1),"HL |Tracker |
|00003f30| 71 75 65 72 72 79 22 2c | 22 48 4c 20 54 72 61 63 |querry",|"HL Trac|
|00003f40| 6b 65 72 22 2c 22 48 4c | 20 54 72 61 63 6b 65 72 |ker","HL| Tracker|
|00003f50| 20 72 65 73 70 6f 6e 73 | 65 22 00 08 42 6f 64 79 | respons|e"..Body|
|00003f60| 31 3d 22 22 2a 42 6f 64 | 79 31 3d 42 6f 64 79 31 |1=""*Bod|y1=Body1|
|00003f70| 2b 48 69 4c 6f 28 32 29 | 20 20 2f 2f 20 74 6f 74 |+HiLo(2)| // tot|
|00003f80| 61 6c 20 73 69 74 65 73 | 20 6c 69 73 74 65 64 25 |al sites| listed%|
|00003f90| 42 6f 64 79 31 3d 42 6f | 64 79 31 2b 48 69 4c 6f |Body1=Bo|dy1+HiLo|
|00003fa0| 28 32 29 20 20 2f 2f 20 | 22 6f 70 65 6e 22 20 73 |(2) // |"open" s|
|00003fb0| 69 74 65 73 3f 08 42 6f | 64 79 32 3d 22 22 3e 42 |ites?.Bo|dy2="">B|
|00003fc0| 6f 64 79 32 3d 42 6f 64 | 79 32 2b 63 68 72 28 31 |ody2=Bod|y2+chr(1|
|00003fd0| 29 2b 63 68 72 28 32 29 | 2b 63 68 72 28 33 29 2b |)+chr(2)|+chr(3)+|
|00003fe0| 63 68 72 28 34 29 20 20 | 2f 2f 20 73 65 72 76 65 |chr(4) |// serve|
|00003ff0| 72 20 49 50 28 31 2e 32 | 2e 33 2e 34 29 2c 42 6f |r IP(1.2|.3.4),Bo|
|00004000| 64 79 32 3d 42 6f 64 79 | 32 2b 48 69 4c 6f 28 35 |dy2=Body|2+HiLo(5|
|00004010| 35 30 30 29 20 20 2f 2f | 20 73 65 72 76 65 72 20 |500) //| server |
|00004020| 70 6f 72 74 28 35 35 30 | 30 29 30 42 6f 64 79 32 |port(550|0)0Body2|
|00004030| 3d 42 6f 64 79 32 2b 48 | 69 4c 6f 28 35 30 29 20 |=Body2+H|iLo(50) |
|00004040| 20 2f 2f 20 73 65 72 76 | 65 72 20 75 73 65 72 73 | // serv|er users|
|00004050| 20 6f 6e 6c 69 6e 65 28 | 35 30 29 1f 42 6f 64 79 | online(|50).Body|
|00004060| 32 3d 42 6f 64 79 32 2b | 48 69 4c 6f 28 30 29 20 |2=Body2+|HiLo(0) |
|00004070| 20 2f 2f 20 4e 4f 20 49 | 44 45 41 3f 42 6f 64 79 | // NO I|DEA?Body|
|00004080| 32 3d 42 6f 64 79 32 2b | 4c 53 74 72 69 6e 67 28 |2=Body2+|LString(|
|00004090| 22 56 69 72 74 75 61 6c | 46 54 50 22 29 20 20 2f |"Virtual|FTP") /|
|000040a0| 2f 20 73 65 72 76 65 72 | 20 6e 61 6d 65 28 6c 65 |/ server| name(le|
|000040b0| 6e 67 74 68 20 66 69 72 | 73 74 29 87 01 42 6f 64 |ngth fir|st)..Bod|
|000040c0| 79 32 3d 42 6f 64 79 32 | 2b 4c 53 74 72 69 6e 67 |y2=Body2|+LString|
|000040d0| 28 22 53 69 6d 70 6c 79 | 20 74 68 65 20 62 65 73 |("Simply| the bes|
|000040e0| 74 22 29 20 20 2f 2f 20 | 73 65 72 76 65 72 20 64 |t") // |server d|
|000040f0| 65 73 63 72 69 70 28 6c | 65 6e 67 74 68 20 66 69 |escrip(l|ength fi|
|00004100| 72 73 74 29 16 42 6f 64 | 79 3d 42 6f 64 79 31 2b |rst).Bod|y=Body1+|
|00004110| 42 6f 64 79 32 2b 42 6f | 64 79 32 09 48 65 61 64 |Body2+Bo|dy2.Head|
|00004120| 65 72 3d 22 22 2b 48 65 | 61 64 65 72 3d 48 65 61 |er=""+He|ader=Hea|
|00004130| 64 65 72 2b 22 48 54 52 | 4b 22 2b 48 69 4c 6f 28 |der+"HTR|K"+HiLo(|
|00004140| 31 29 20 20 2f 2f 20 6f | 6e 65 20 68 65 61 64 65 |1) // o|ne heade|
|00004150| 72 32 48 65 61 64 65 72 | 3d 48 65 61 64 65 72 2b |r2Header|=Header+|
|00004160| 48 69 4c 6f 28 31 29 20 | 2f 2f 20 68 6f 74 6c 69 |HiLo(1) |// hotli|
|00004170| 6e 65 20 74 72 61 63 6b | 65 72 20 76 65 72 73 69 |ne track|er versi|
|00004180| 6f 6e 20 31 38 48 65 61 | 64 65 72 3d 48 65 61 64 |on 18Hea|der=Head|
|00004190| 65 72 2b 48 69 4c 6f 28 | 6c 65 6e 28 42 6f 64 79 |er+HiLo(|len(Body|
|000041a0| 29 29 20 20 2f 2f 20 62 | 79 74 65 73 20 66 6f 6c |)) // b|ytes fol|
|000041b0| 6c 6f 77 69 6e 67 20 68 | 65 61 64 65 72 36 44 65 |lowing h|eader6De|
|000041c0| 73 63 72 69 62 65 53 74 | 72 69 6e 67 20 48 65 61 |scribeSt|ring Hea|
|000041d0| 64 65 72 2b 42 6f 64 79 | 2c 22 48 4c 20 54 72 61 |der+Body|,"HL Tra|
|000041e0| 63 6b 65 72 20 72 65 73 | 70 6f 6e 73 65 22 2c 22 |cker res|ponse","|
|000041f0| 22 2c 22 22 00 9b 01 44 | 65 73 63 72 69 62 65 53 |",""...D|escribeS|
|00004200| 74 72 69 6e 67 20 22 54 | 52 54 50 48 4f 54 4c 22 |tring "T|RTPHOTL"|
|00004210| 2b 48 69 4c 6f 28 31 29 | 2b 48 69 4c 6f 28 32 29 |+HiLo(1)|+HiLo(2)|
|00004220| 2c 22 48 4c 20 43 6c 69 | 65 6e 74 20 48 65 6c 6c |,"HL Cli|ent Hell|
|00004230| 6f 31 22 2c 22 48 4c 20 | 53 65 72 76 65 72 22 2c |o1","HL |Server",|
|00004240| 22 48 4c 20 53 65 72 76 | 65 72 20 48 65 6c 6c 6f |"HL Serv|er Hello|
|00004250| 31 22 00 97 01 44 65 73 | 63 72 69 62 65 53 74 72 |1"...Des|cribeStr|
|00004260| 69 6e 67 20 22 54 52 54 | 50 22 2b 48 69 4c 6f 28 |ing "TRT|P"+HiLo(|
|00004270| 30 29 2b 48 69 4c 6f 28 | 30 29 2c 22 48 4c 20 53 |0)+HiLo(|0),"HL S|
|00004280| 65 72 76 65 72 20 48 65 | 6c 6c 6f 31 22 2c 22 48 |erver He|llo1","H|
|00004290| 4c 20 43 6c 69 65 6e 74 | 22 2c 22 48 4c 20 43 6c |L Client|","HL Cl|
|000042a0| 69 65 6e 74 20 48 65 6c | 6c 6f 32 22 00 0e 48 65 |ient Hel|lo2"..He|
|000042b0| 61 64 65 72 3d 48 69 4c | 6f 28 30 29 a1 01 48 65 |ader=HiL|o(0)..He|
|000042c0| 61 64 65 72 3d 48 65 61 | 64 65 72 2b 48 69 4c 6f |ader=Hea|der+HiLo|
|000042d0| 28 31 30 37 29 2b 48 69 | 4c 6f 28 30 29 2b 48 69 |(107)+Hi|Lo(0)+Hi|
|000042e0| 4c 6f 28 31 29 2b 48 69 | 4c 6f 28 30 29 2b 48 69 |Lo(1)+Hi|Lo(0)+Hi|
|000042f0| 4c 6f 28 30 29 2b 48 69 | 4c 6f 28 30 29 2b 48 69 |Lo(0)+Hi|Lo(0)+Hi|
|00004300| 4c 6f 28 32 30 29 2b 48 | 69 4c 6f 28 30 29 2b 48 |Lo(20)+H|iLo(0)+H|
|00004310| 69 4c 6f 28 32 30 29 2b | 48 69 4c 6f 28 32 29 2c |iLo(20)+|HiLo(2),|
|00004320| 48 65 61 64 65 72 3d 48 | 65 61 64 65 72 2b 48 69 |Header=H|eader+Hi|
|00004330| 4c 6f 28 31 30 32 29 2b | 4c 32 73 74 72 69 6e 67 |Lo(102)+|L2string|
|00004340| 28 22 56 69 72 74 75 61 | 6c 31 22 29 97 02 48 65 |("Virtua|l1")..He|
|00004350| 61 64 65 72 3d 48 65 61 | 64 65 72 2b 48 69 4c 6f |ader=Hea|der+HiLo|
|00004360| 28 31 30 34 29 2b 48 69 | 4c 6f 28 32 29 2b 63 68 |(104)+Hi|Lo(2)+ch|
|00004370| 72 28 31 30 29 2b 63 68 | 72 28 31 39 33 29 2b 63 |r(10)+ch|r(193)+c|
|00004380| 68 72 28 30 29 2b 48 69 | 4c 6f 28 31 29 2b 63 68 |hr(0)+Hi|Lo(1)+ch|
|00004390| 72 28 34 34 29 2b 48 69 | 4c 6f 28 30 29 2b 48 69 |r(44)+Hi|Lo(0)+Hi|
|000043a0| 4c 6f 28 32 29 2b 48 69 | 4c 6f 28 30 29 2b 48 69 |Lo(2)+Hi|Lo(0)+Hi|
|000043b0| 4c 6f 28 30 29 2b 48 69 | 4c 6f 28 30 29 2b 48 69 |Lo(0)+Hi|Lo(0)+Hi|
|000043c0| 4c 6f 28 32 29 2b 48 69 | 4c 6f 28 30 29 2b 48 69 |Lo(2)+Hi|Lo(0)+Hi|
|000043d0| 4c 6f 28 32 29 2b 48 69 | 4c 6f 28 30 29 2b 48 69 |Lo(2)+Hi|Lo(0)+Hi|
|000043e0| 4c 6f 28 30 29 9f 01 48 | 65 61 64 65 72 3d 48 65 |Lo(0)..H|eader=He|
|000043f0| 61 64 65 72 2b 48 69 4c | 6f 28 31 30 31 29 2b 48 |ader+HiL|o(101)+H|
|00004400| 69 4c 6f 28 30 29 2b 48 | 69 4c 6f 28 33 29 2b 48 |iLo(0)+H|iLo(3)+H|
|00004410| 69 4c 6f 28 30 29 2b 48 | 69 4c 6f 28 30 29 2b 48 |iLo(0)+H|iLo(0)+H|
|00004420| 69 4c 6f 28 30 29 2b 48 | 69 4c 6f 28 32 29 2b 48 |iLo(0)+H|iLo(2)+H|
|00004430| 69 4c 6f 28 30 29 2b 48 | 69 4c 6f 28 32 29 2b 48 |iLo(0)+H|iLo(2)+H|
|00004440| 69 4c 6f 28 30 29 87 01 | 44 65 73 63 72 69 62 65 |iLo(0)..|Describe|
|00004450| 53 74 72 69 6e 67 20 48 | 65 61 64 65 72 2c 22 48 |String H|eader,"H|
|00004460| 4c 20 43 6c 69 65 6e 74 | 20 48 65 6c 6c 6f 32 22 |L Client| Hello2"|
|00004470| 2c 22 48 4c 20 53 65 72 | 76 65 72 22 2c 22 48 4c |,"HL Ser|ver","HL|
|00004480| 20 53 65 72 76 65 72 20 | 48 65 6c 6c 6f 32 22 00 | Server |Hello2".|
|00004490| 9e 01 48 65 61 64 65 72 | 3d 48 69 4c 6f 28 31 29 |..Header|=HiLo(1)|
|000044a0| 2b 48 69 4c 6f 28 30 29 | 2b 48 69 4c 6f 28 30 29 |+HiLo(0)|+HiLo(0)|
|000044b0| 2b 48 69 4c 6f 28 31 29 | 2b 48 69 4c 6f 28 30 29 |+HiLo(1)|+HiLo(0)|
|000044c0| 2b 48 69 4c 6f 28 30 29 | 2b 48 69 4c 6f 28 30 29 |+HiLo(0)|+HiLo(0)|
|000044d0| 2b 48 69 4c 6f 28 32 29 | 2b 48 69 4c 6f 28 30 29 |+HiLo(2)|+HiLo(0)|
|000044e0| 2b 48 69 4c 6f 28 32 29 | 2b 48 69 4c 6f 28 30 29 |+HiLo(2)|+HiLo(0)|
|000044f0| 89 01 2f 2f 44 65 73 63 | 72 69 62 65 53 74 72 69 |..//Desc|ribeStri|
|00004500| 6e 67 20 48 65 61 64 65 | 72 2c 22 48 4c 20 53 65 |ng Heade|r,"HL Se|
|00004510| 72 76 65 72 20 48 65 6c | 6c 6f 32 22 2c 22 48 4c |rver Hel|lo2","HL|
|00004520| 20 43 6c 69 65 6e 74 22 | 2c 22 48 4c 20 43 6c 69 | Client"|,"HL Cli|
|00004530| 65 6e 74 20 48 65 6c 6c | 6f 33 22 37 44 65 73 63 |ent Hell|o3"7Desc|
|00004540| 72 69 62 65 53 74 72 69 | 6e 67 20 48 65 61 64 65 |ribeStri|ng Heade|
|00004550| 72 2c 22 48 4c 20 53 65 | 72 76 65 72 20 48 65 6c |r,"HL Se|rver Hel|
|00004560| 6c 6f 32 22 2c 22 48 4c | 20 43 6c 69 65 6e 74 22 |lo2","HL| Client"|
|00004570| 2c 22 22 00 00 3d 2f 2f | 20 6d 61 6b 65 20 73 75 |,""..=//| make su|
|00004580| 72 65 20 61 6c 6c 20 72 | 65 73 70 6f 6e 73 65 73 |re all r|esponses|
|00004590| 20 61 72 65 20 6d 61 74 | 63 68 65 64 20 74 6f 20 | are mat|ched to |
|000045a0| 6f 74 68 65 72 20 6b 6e | 6f 77 6e 20 73 74 72 69 |other kn|own stri|
|000045b0| 6e 67 73 00 08 77 61 6c | 6b 65 72 3d 31 23 64 6f |ngs..wal|ker=1#do|
|000045c0| 20 75 6e 74 69 6c 20 57 | 61 6c 6b 65 72 3e 55 62 | until W|alker>Ub|
|000045d0| 6f 75 6e 64 28 4b 6e 6f | 77 6e 53 74 72 69 6e 67 |ound(Kno|wnString|
|000045e0| 29 82 01 69 66 20 4b 6e | 6f 77 6e 52 65 70 6c 79 |)..if Kn|ownReply|
|000045f0| 28 57 61 6c 6b 65 72 29 | 3c 3e 22 22 20 61 6e 64 |(Walker)|<>"" and|
|00004600| 20 6c 65 66 74 28 4b 6e | 6f 77 6e 52 65 70 6c 79 | left(Kn|ownReply|
|00004610| 28 57 61 6c 6b 65 72 29 | 2c 31 29 3c 3e 22 2a 22 |(Walker)|,1)<>"*"|
|00004620| 20 74 68 65 6e b5 01 6d | 73 67 62 6f 78 20 22 57 | then..m|sgbox "W|
|00004630| 41 52 4e 49 4e 47 2c 20 | 75 6e 6d 61 74 63 68 65 |ARNING, |unmatche|
|00004640| 64 20 72 65 70 6c 79 21 | 22 2b 63 68 72 28 31 33 |d reply!|"+chr(13|
|00004650| 29 2b 22 66 72 6f 6d 3a | 20 27 22 2b 4b 6e 6f 77 |)+"from:| '"+Know|
|00004660| 6e 49 64 65 6e 74 69 74 | 79 28 57 61 6c 6b 65 72 |nIdentit|y(Walker|
|00004670| 29 2b 22 27 22 2b 63 68 | 72 28 31 33 29 2b 22 74 |)+"'"+ch|r(13)+"t|
|00004680| 6f 3a 20 27 22 2b 4b 6e | 6f 77 6e 52 65 70 6c 79 |o: '"+Kn|ownReply|
|00004690| 28 57 61 6c 6b 65 72 29 | 2b 22 27 22 06 65 6e 64 |(Walker)|+"'".end|
|000046a0| 20 69 66 0f 57 61 6c 6b | 65 72 3d 57 61 6c 6b 65 | if.Walk|er=Walke|
|000046b0| 72 2b 31 04 6c 6f 6f 70 | 00 00 28 2f 2f 20 44 65 |r+1.loop|..(// De|
|000046c0| 73 63 72 69 62 65 53 68 | 6f 72 74 43 75 74 20 6e |scribeSh|ortCut n|
|000046d0| 61 6d 65 2c 49 50 2c 70 | 6f 72 74 2c 43 52 2c 56 |ame,IP,p|ort,CR,V|
|000046e0| 69 65 77 00 32 2f 2f 20 | 43 52 20 63 61 6e 20 62 |iew.2// |CR can b|
|000046f0| 65 20 22 4c 46 22 2c 22 | 43 52 22 2c 22 43 52 4c |e "LF","|CR","CRL|
|00004700| 46 22 2c 20 6f 72 20 22 | 22 20 66 6f 72 20 6e 6f |F", or "|" for no|
|00004710| 20 63 68 61 6e 67 65 3c | 2f 2f 20 56 69 65 77 20 | change<|// View |
|00004720| 63 61 6e 20 62 65 20 22 | 41 53 43 49 49 22 2c 22 |can be "|ASCII","|
|00004730| 53 54 52 49 4e 47 22 2c | 22 41 4c 50 48 41 22 2c |STRING",|"ALPHA",|
|00004740| 20 6f 72 20 22 22 20 66 | 6f 72 20 6e 6f 20 63 68 | or "" f|or no ch|
|00004750| 61 6e 67 65 00 86 01 44 | 65 73 63 72 69 62 65 53 |ange...D|escribeS|
|00004760| 68 6f 72 74 43 75 74 20 | 22 4d 69 72 72 6f 72 22 |hortCut |"Mirror"|
|00004770| 20 20 20 20 20 20 20 20 | 20 20 2c 22 31 32 37 2e | | ,"127.|
|00004780| 30 2e 30 2e 31 22 20 20 | 20 20 20 20 2c 22 22 20 |0.0.1" | ,"" |
|00004790| 20 20 20 2c 22 22 20 20 | 20 20 2c 22 22 8c 01 44 | ,"" | ,""..D|
|000047a0| 65 73 63 72 69 62 65 53 | 68 6f 72 74 43 75 74 20 |escribeS|hortCut |
|000047b0| 22 46 69 6e 67 65 72 22 | 20 20 20 20 20 20 20 20 |"Finger"| |
|000047c0| 20 20 2c 22 31 33 34 2e | 31 36 31 2e 31 2e 31 31 | ,"134.|161.1.11|
|000047d0| 22 20 20 20 2c 22 37 39 | 22 20 20 2c 22 43 52 22 |" ,"79|" ,"CR"|
|000047e0| 20 20 2c 22 53 54 52 49 | 4e 47 22 8c 01 44 65 73 | ,"STRI|NG"..Des|
|000047f0| 63 72 69 62 65 53 68 6f | 72 74 43 75 74 20 22 44 |cribeSho|rtCut "D|
|00004800| 65 74 6f 75 72 22 20 20 | 20 20 20 20 20 20 20 20 |etour" | |
|00004810| 2c 22 32 30 36 2e 31 30 | 35 2e 32 30 33 2e 32 35 |,"206.10|5.203.25|
|00004820| 31 22 2c 22 38 30 22 20 | 20 2c 22 22 20 20 20 20 |1","80" | ,"" |
|00004830| 2c 22 53 54 52 49 4e 47 | 22 8c 01 44 65 73 63 72 |,"STRING|"..Descr|
|00004840| 69 62 65 53 68 6f 72 74 | 43 75 74 20 22 54 65 6c |ibeShort|Cut "Tel|
|00004850| 4e 45 54 22 20 20 20 20 | 20 20 20 20 20 20 2c 22 |NET" | ,"|
|00004860| 31 33 34 2e 31 36 31 2e | 31 2e 31 31 22 20 20 20 |134.161.|1.11" |
|00004870| 2c 22 32 33 22 20 20 2c | 22 43 52 4c 46 22 2c 22 |,"23" ,|"CRLF","|
|00004880| 53 54 52 49 4e 47 22 8c | 01 44 65 73 63 72 69 62 |STRING".|.Describ|
|00004890| 65 53 68 6f 72 74 43 75 | 74 20 22 46 54 50 20 28 |eShortCu|t "FTP (|
|000048a0| 63 6f 6e 74 72 6f 6c 29 | 22 20 20 20 2c 22 31 33 |control)|" ,"13|
|000048b0| 34 2e 31 36 31 2e 31 2e | 31 31 22 20 20 20 2c 22 |4.161.1.|11" ,"|
|000048c0| 32 31 22 20 20 2c 22 43 | 52 4c 46 22 2c 22 53 54 |21" ,"C|RLF","ST|
|000048d0| 52 49 4e 47 22 8b 01 44 | 65 73 63 72 69 62 65 53 |RING"..D|escribeS|
|000048e0| 68 6f 72 74 43 75 74 20 | 22 46 54 50 20 28 64 61 |hortCut |"FTP (da|
|000048f0| 74 61 29 22 20 20 20 20 | 20 20 2c 22 31 33 34 2e |ta)" | ,"134.|
|00004900| 31 36 31 2e 31 2e 31 31 | 22 20 20 20 2c 22 32 30 |161.1.11|" ,"20|
|00004910| 22 20 20 2c 22 22 20 20 | 20 20 2c 22 41 53 43 49 |" ,"" | ,"ASCI|
|00004920| 49 22 8c 01 44 65 73 63 | 72 69 62 65 53 68 6f 72 |I"..Desc|ribeShor|
|00004930| 74 43 75 74 20 22 4e 4e | 54 50 20 28 6e 65 77 73 |tCut "NN|TP (news|
|00004940| 29 22 20 20 20 20 20 2c | 22 31 39 38 2e 34 39 2e |)" ,|"198.49.|
|00004950| 33 30 2e 34 36 22 20 20 | 20 2c 22 31 31 39 22 20 |30.46" | ,"119" |
|00004960| 2c 22 4c 46 22 20 20 2c | 22 53 54 52 49 4e 47 22 |,"LF" ,|"STRING"|
|00004970| 8c 01 44 65 73 63 72 69 | 62 65 53 68 6f 72 74 43 |..Descri|beShortC|
|00004980| 75 74 20 22 53 4d 50 54 | 20 28 73 65 6e 64 20 6d |ut "SMPT| (send m|
|00004990| 61 69 6c 29 22 2c 22 31 | 33 34 2e 31 36 31 2e 31 |ail)","1|34.161.1|
|000049a0| 2e 31 31 22 20 20 20 2c | 22 32 35 22 20 20 2c 22 |.11" ,|"25" ,"|
|000049b0| 4c 46 22 20 20 2c 22 53 | 54 52 49 4e 47 22 8b 01 |LF" ,"S|TRING"..|
|000049c0| 44 65 73 63 72 69 62 65 | 53 68 6f 72 74 43 75 74 |Describe|ShortCut|
|000049d0| 20 22 48 4c 20 54 72 61 | 63 6b 65 72 22 20 20 20 | "HL Tra|cker" |
|000049e0| 20 20 20 2c 22 32 30 33 | 2e 36 33 2e 39 33 2e 32 | ,"203|.63.93.2|
|000049f0| 30 22 20 20 20 2c 22 35 | 34 39 38 22 2c 22 22 20 |0" ,"5|498","" |
|00004a00| 20 20 20 2c 22 41 53 43 | 49 49 22 86 01 44 65 73 | ,"ASC|II"..Des|
|00004a10| 63 72 69 62 65 53 68 6f | 72 74 43 75 74 20 22 48 |cribeSho|rtCut "H|
|00004a20| 4c 20 53 65 72 76 65 72 | 22 20 20 20 20 20 20 20 |L Server|" |
|00004a30| 2c 22 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,"" | |
|00004a40| 20 20 2c 22 35 35 30 30 | 22 2c 22 22 20 20 20 20 | ,"5500|","" |
|00004a50| 2c 22 22 86 01 44 65 73 | 63 72 69 62 65 53 68 6f |,""..Des|cribeSho|
|00004a60| 72 74 43 75 74 20 22 48 | 4c 20 43 6c 69 65 6e 74 |rtCut "H|L Client|
|00004a70| 22 20 20 20 20 20 20 20 | 2c 22 31 32 37 2e 30 2e |" |,"127.0.|
|00004a80| 30 2e 31 22 20 20 20 20 | 20 20 2c 22 35 35 30 30 |0.1" | ,"5500|
|00004a90| 22 2c 22 22 20 20 20 20 | 2c 22 22 8b 01 44 65 73 |","" |,""..Des|
|00004aa0| 63 72 69 62 65 53 68 6f | 72 74 43 75 74 20 22 44 |cribeSho|rtCut "D|
|00004ab0| 6f 6f 6d 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |oom" | |
|00004ac0| 2c 22 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,"" | |
|00004ad0| 20 20 2c 22 36 36 36 22 | 20 2c 22 22 20 20 20 20 | ,"666"| ,"" |
|00004ae0| 2c 22 41 53 43 49 49 22 | 8b 01 44 65 73 63 72 69 |,"ASCII"|..Descri|
|00004af0| 62 65 53 68 6f 72 74 43 | 75 74 20 22 54 69 6d 62 |beShortC|ut "Timb|
|00004b00| 75 6b 74 75 22 20 20 20 | 20 20 20 20 20 2c 22 22 |uktu" | ,""|
|00004b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2c | | ,|
|00004b20| 22 34 30 37 22 20 2c 22 | 22 20 20 20 20 2c 22 41 |"407" ,"|" ,"A|
|00004b30| 53 43 49 49 22 8b 01 44 | 65 73 63 72 69 62 65 53 |SCII"..D|escribeS|
|00004b40| 68 6f 72 74 43 75 74 20 | 22 46 69 72 73 74 43 6c |hortCut |"FirstCl|
|00004b50| 61 73 73 22 20 20 20 20 | 20 20 2c 22 22 20 20 20 |ass" | ,"" |
|00004b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 2c 22 33 30 | | ,"30|
|00004b70| 30 30 22 2c 22 22 20 20 | 20 20 2c 22 41 53 43 49 |00","" | ,"ASCI|
|00004b80| 49 22 8b 01 44 65 73 63 | 72 69 62 65 53 68 6f 72 |I"..Desc|ribeShor|
|00004b90| 74 43 75 74 20 22 41 70 | 70 6c 65 53 68 61 72 65 |tCut "Ap|pleShare|
|00004ba0| 20 49 50 22 20 20 20 2c | 22 22 20 20 20 20 20 20 | IP" ,|"" |
|00004bb0| 20 20 20 20 20 20 20 20 | 20 2c 22 35 34 38 22 20 | | ,"548" |
|00004bc0| 2c 22 22 20 20 20 20 2c | 22 41 53 43 49 49 22 00 |,"" ,|"ASCII".|
|00004bd0| 07 45 6e 64 20 53 75 62 | 0e 44 65 73 63 72 69 62 |.End Sub|.Describ|
|00004be0| 65 53 74 72 69 6e 67 8b | 01 41 73 63 69 69 20 61 |eString.|.Ascii a|
|00004bf0| 73 20 73 74 72 69 6e 67 | 2c 20 44 65 73 63 72 69 |s string|, Descri|
|00004c00| 70 74 69 6f 6e 20 61 73 | 20 73 74 72 69 6e 67 2c |ption as| string,|
|00004c10| 20 47 72 6f 75 70 20 61 | 73 20 73 74 72 69 6e 67 | Group a|s string|
|00004c20| 2c 20 52 65 73 70 6f 6e | 73 65 20 61 73 20 73 74 |, Respon|se as st|
|00004c30| 72 69 6e 67 00 00 22 0e | 22 0e 31 9f 01 53 75 62 |ring..".|".1..Sub|
|00004c40| 20 44 65 73 63 72 69 62 | 65 53 74 72 69 6e 67 28 | Describ|eString(|
|00004c50| 41 73 63 69 69 20 61 73 | 20 73 74 72 69 6e 67 2c |Ascii as| string,|
|00004c60| 20 44 65 73 63 72 69 70 | 74 69 6f 6e 20 61 73 20 | Descrip|tion as |
|00004c70| 73 74 72 69 6e 67 2c 20 | 47 72 6f 75 70 20 61 73 |string, |Group as|
|00004c80| 20 73 74 72 69 6e 67 2c | 20 52 65 73 70 6f 6e 73 | string,| Respons|
|00004c90| 65 20 61 73 20 73 74 72 | 69 6e 67 29 00 2d 2f 2f |e as str|ing).-//|
|00004ca0| 20 61 64 64 20 61 6e 20 | 69 74 65 6d 20 74 6f 20 | add an |item to |
|00004cb0| 74 68 65 20 69 64 65 6e | 74 69 66 69 65 64 20 73 |the iden|tified s|
|00004cc0| 74 72 69 6e 67 73 20 6c | 69 73 74 00 14 64 69 6d |trings l|ist..dim|
|00004cd0| 20 49 6e 64 65 78 20 61 | 73 20 69 6e 74 65 67 65 | Index a|s intege|
|00004ce0| 72 16 64 69 6d 20 43 6f | 75 6e 74 65 72 20 61 73 |r.dim Co|unter as|
|00004cf0| 20 69 6e 74 65 67 65 72 | 15 64 69 6d 20 57 61 6c | integer|.dim Wal|
|00004d00| 6b 65 72 20 61 73 20 69 | 6e 74 65 67 65 72 17 64 |ker as i|nteger.d|
|00004d10| 69 6d 20 47 6f 74 47 72 | 6f 75 70 20 61 73 20 62 |im GotGr|oup as b|
|00004d20| 6f 6f 6c 65 61 6e 00 18 | 4b 6e 6f 77 6e 53 74 72 |oolean..|KnownStr|
|00004d30| 69 6e 67 2e 61 70 70 65 | 6e 64 20 41 73 63 69 69 |ing.appe|nd Ascii|
|00004d40| 20 4b 6e 6f 77 6e 49 64 | 65 6e 74 69 74 79 2e 61 | KnownId|entity.a|
|00004d50| 70 70 65 6e 64 20 44 65 | 73 63 72 69 70 74 69 6f |ppend De|scriptio|
|00004d60| 6e 17 4b 6e 6f 77 6e 47 | 72 6f 75 70 2e 61 70 70 |n.KnownG|roup.app|
|00004d70| 65 6e 64 20 47 72 6f 75 | 70 1a 4b 6e 6f 77 6e 52 |end Grou|p.KnownR|
|00004d80| 65 70 6c 79 2e 61 70 70 | 65 6e 64 20 52 65 73 70 |eply.app|end Resp|
|00004d90| 6f 6e 73 65 00 19 49 6e | 64 65 78 3d 55 62 6f 75 |onse..In|dex=Ubou|
|00004da0| 6e 64 28 4b 6e 6f 77 6e | 53 74 72 69 6e 67 29 00 |nd(Known|String).|
|00004db0| 1e 53 65 6e 64 44 61 74 | 61 50 4f 50 2e 61 64 64 |.SendDat|aPOP.add|
|00004dc0| 72 6f 77 20 44 65 73 63 | 72 69 70 74 69 6f 6e 00 |row Desc|ription.|
|00004dd0| 00 33 2f 2f 20 61 6c 73 | 6f 20 6d 61 74 63 68 20 |.3// als|o match |
|00004de0| 61 6e 79 20 75 6e 6d 61 | 74 63 68 65 64 20 52 65 |any unma|tched Re|
|00004df0| 70 6c 69 65 73 20 77 69 | 74 68 20 49 64 65 6e 74 |plies wi|th Ident|
|00004e00| 69 74 69 65 73 00 09 43 | 6f 75 6e 74 65 72 3d 31 |ities..C|ounter=1|
|00004e10| 0e 47 6f 74 47 72 6f 75 | 70 3d 66 61 6c 73 65 02 |.GotGrou|p=false.|
|00004e20| 64 6f 28 69 66 20 6c 65 | 66 74 28 4b 6e 6f 77 6e |do(if le|ft(Known|
|00004e30| 52 65 70 6c 79 28 43 6f | 75 6e 74 65 72 29 2c 31 |Reply(Co|unter),1|
|00004e40| 29 3c 3e 22 2a 22 20 74 | 68 65 6e 08 57 61 6c 6b |)<>"*" t|hen.Walk|
|00004e50| 65 72 3d 31 15 64 6f 20 | 75 6e 74 69 6c 20 57 61 |er=1.do |until Wa|
|00004e60| 6c 6b 65 72 3e 49 6e 64 | 65 78 31 69 66 20 4b 6e |lker>Ind|ex1if Kn|
|00004e70| 6f 77 6e 49 64 65 6e 74 | 69 74 79 28 57 61 6c 6b |ownIdent|ity(Walk|
|00004e80| 65 72 29 3d 4b 6e 6f 77 | 6e 52 65 70 6c 79 28 43 |er)=Know|nReply(C|
|00004e90| 6f 75 6e 74 65 72 29 20 | 74 68 65 6e 23 4b 6e 6f |ounter) |then#Kno|
|00004ea0| 77 6e 52 65 70 6c 79 28 | 43 6f 75 6e 74 65 72 29 |wnReply(|Counter)|
|00004eb0| 3d 22 2a 22 2b 73 74 72 | 28 57 61 6c 6b 65 72 29 |="*"+str|(Walker)|
|00004ec0| 0c 57 61 6c 6b 65 72 3d | 49 6e 64 65 78 06 65 6e |.Walker=|Index.en|
|00004ed0| 64 20 69 66 0f 57 61 6c | 6b 65 72 3d 57 61 6c 6b |d if.Wal|ker=Walk|
|00004ee0| 65 72 2b 31 04 6c 6f 6f | 70 06 65 6e 64 20 69 66 |er+1.loo|p.end if|
|00004ef0| 34 69 66 20 4b 6e 6f 77 | 6e 47 72 6f 75 70 28 43 |4if Know|nGroup(C|
|00004f00| 6f 75 6e 74 65 72 29 3d | 47 72 6f 75 70 20 61 6e |ounter)=|Group an|
|00004f10| 64 20 43 6f 75 6e 74 65 | 72 3c 3e 49 6e 64 65 78 |d Counte|r<>Index|
|00004f20| 20 74 68 65 6e 0d 47 6f | 74 47 72 6f 75 70 3d 74 | then.Go|tGroup=t|
|00004f30| 72 75 65 06 65 6e 64 20 | 69 66 11 43 6f 75 6e 74 |rue.end |if.Count|
|00004f40| 65 72 3d 43 6f 75 6e 74 | 65 72 2b 31 18 6c 6f 6f |er=Count|er+1.loo|
|00004f50| 70 20 75 6e 74 69 6c 20 | 43 6f 75 6e 74 65 72 3e |p until |Counter>|
|00004f60| 49 6e 64 65 78 00 00 10 | 2f 2f 20 75 70 64 61 74 |Index...|// updat|
|00004f70| 65 20 67 72 6f 75 70 73 | 00 24 69 66 20 6e 6f 74 |e groups|.$if not|
|00004f80| 20 47 6f 74 47 72 6f 75 | 70 20 61 6e 64 20 47 72 | GotGrou|p and Gr|
|00004f90| 6f 75 70 20 3c 3e 20 22 | 22 20 74 68 65 6e 19 41 |oup <> "|" then.A|
|00004fa0| 75 74 6f 52 65 70 6c 79 | 50 4f 50 2e 61 64 64 72 |utoReply|POP.addr|
|00004fb0| 6f 77 20 47 72 6f 75 70 | 06 65 6e 64 20 69 66 00 |ow Group|.end if.|
|00004fc0| 00 07 45 6e 64 20 53 75 | 62 10 44 65 73 63 72 69 |..End Su|b.Descri|
|00004fd0| 62 65 53 68 6f 72 74 43 | 75 74 93 01 44 65 73 63 |beShortC|ut..Desc|
|00004fe0| 72 69 70 74 69 6f 6e 20 | 61 73 20 73 74 72 69 6e |ription |as strin|
|00004ff0| 67 2c 20 49 50 20 61 73 | 20 73 74 72 69 6e 67 2c |g, IP as| string,|
|00005000| 20 70 6f 72 74 20 61 73 | 20 73 74 72 69 6e 67 2c | port as| string,|
|00005010| 20 43 52 4c 46 20 61 73 | 20 73 74 72 69 6e 67 2c | CRLF as| string,|
|00005020| 20 56 69 65 77 20 61 73 | 20 73 74 72 69 6e 67 00 | View as| string.|
|00005030| 00 07 00 07 00 09 a9 01 | 53 75 62 20 44 65 73 63 |........|Sub Desc|
|00005040| 72 69 62 65 53 68 6f 72 | 74 43 75 74 28 44 65 73 |ribeShor|tCut(Des|
|00005050| 63 72 69 70 74 69 6f 6e | 20 61 73 20 73 74 72 69 |cription| as stri|
|00005060| 6e 67 2c 20 49 50 20 61 | 73 20 73 74 72 69 6e 67 |ng, IP a|s string|
|00005070| 2c 20 70 6f 72 74 20 61 | 73 20 73 74 72 69 6e 67 |, port a|s string|
|00005080| 2c 20 43 52 4c 46 20 61 | 73 20 73 74 72 69 6e 67 |, CRLF a|s string|
|00005090| 2c 20 56 69 65 77 20 61 | 73 20 73 74 72 69 6e 67 |, View a|s string|
|000050a0| 29 00 20 43 6f 6e 6e 65 | 63 74 69 6f 6e 50 4f 50 |). Conne|ctionPOP|
|000050b0| 2e 61 64 64 72 6f 77 20 | 44 65 73 63 72 69 70 74 |.addrow |Descript|
|000050c0| 69 6f 6e 14 53 68 6f 72 | 74 43 75 74 49 50 2e 61 |ion.Shor|tCutIP.a|
|000050d0| 70 70 65 6e 64 20 49 50 | 18 53 68 6f 72 74 43 75 |ppend IP|.ShortCu|
|000050e0| 74 50 6f 72 74 2e 61 70 | 70 65 6e 64 20 70 6f 72 |tPort.ap|pend por|
|000050f0| 74 18 53 68 6f 72 74 43 | 75 74 53 65 6e 64 2e 61 |t.ShortC|utSend.a|
|00005100| 70 70 65 6e 64 20 43 52 | 4c 46 18 53 68 6f 72 74 |ppend CR|LF.Short|
|00005110| 43 75 74 56 69 65 77 2e | 61 70 70 65 6e 64 20 56 |CutView.|append V|
|00005120| 69 65 77 00 07 45 6e 64 | 20 53 75 62 07 50 75 72 |iew..End| Sub.Pur|
|00005130| 67 65 52 78 0c 78 20 61 | 73 20 69 6e 74 65 67 65 |geRx.x a|s intege|
|00005140| 72 00 00 0b 1c 0b 1c 1e | 19 53 75 62 20 50 75 72 |r.......|.Sub Pur|
|00005150| 67 65 52 78 28 78 20 61 | 73 20 69 6e 74 65 67 65 |geRx(x a|s intege|
|00005160| 72 29 00 87 01 2f 2f 20 | 72 65 6d 6f 76 65 20 78 |r)...// |remove x|
|00005170| 20 62 79 74 65 73 20 66 | 72 6f 6d 20 74 68 65 20 | bytes f|rom the |
|00005180| 72 65 63 69 65 76 65 20 | 62 75 66 66 65 72 2e 20 |recieve |buffer. |
|00005190| 20 4e 6f 74 65 20 74 68 | 61 74 20 74 68 69 73 20 | Note th|at this |
|000051a0| 77 69 6c 6c 20 69 6e 76 | 6f 6c 76 65 28 2f 2f 20 |will inv|olve(// |
|000051b0| 65 78 74 65 6e 73 69 76 | 65 20 6d 61 73 73 61 67 |extensiv|e massag|
|000051c0| 69 6e 67 20 6f 66 20 74 | 68 65 20 52 78 20 62 75 |ing of t|he Rx bu|
|000051d0| 66 66 65 72 21 00 13 64 | 69 6d 20 4d 6f 72 65 20 |ffer!..d|im More |
|000051e0| 61 73 20 69 6e 74 65 67 | 65 72 13 64 69 6d 20 4c |as integ|er.dim L|
|000051f0| 65 73 73 20 61 73 20 69 | 6e 74 65 67 65 72 2c 69 |ess as i|nteger,i|
|00005200| 66 20 78 3d 52 78 42 79 | 74 65 73 20 74 68 65 6e |f x=RxBy|tes then|
|00005210| 20 2f 2f 20 6c 69 66 65 | 20 69 73 20 73 69 6d 70 | // life| is simp|
|00005220| 6c 65 20 74 68 69 73 20 | 77 61 79 07 43 6c 65 61 |le this |way.Clea|
|00005230| 72 52 78 04 65 6c 73 65 | 28 4d 6f 72 65 3d 78 20 |rRx.else|(More=x |
|00005240| 2f 2f 20 53 74 65 70 20 | 31 3a 20 74 72 69 6d 20 |// Step |1: trim |
|00005250| 6f 66 66 20 77 68 6f 6c | 65 20 70 61 63 6b 65 74 |off whol|e packet|
|00005260| 73 1f 64 6f 20 75 6e 74 | 69 6c 20 6d 6f 72 65 3e |s.do unt|il more>|
|00005270| 3d 6c 65 6e 28 52 78 42 | 75 66 66 65 72 28 31 29 |=len(RxB|uffer(1)|
|00005280| 29 15 4c 65 73 73 3d 6c | 65 6e 28 52 78 42 75 66 |).Less=l|en(RxBuf|
|00005290| 66 65 72 28 31 29 29 11 | 52 78 42 75 66 66 65 72 |fer(1)).|RxBuffer|
|000052a0| 2e 72 65 6d 6f 76 65 20 | 31 0e 4d 6f 72 65 3d 4d |.remove |1.More=M|
|000052b0| 6f 72 65 2d 4c 65 73 73 | 15 52 78 50 61 63 6b 65 |ore-Less|.RxPacke|
|000052c0| 74 73 3d 52 78 50 61 63 | 6b 65 74 73 2d 31 14 52 |ts=RxPac|kets-1.R|
|000052d0| 78 42 79 74 65 73 3d 52 | 78 42 79 74 65 73 2d 4c |xBytes=R|xBytes-L|
|000052e0| 65 73 73 04 6c 6f 6f 70 | 9d 01 52 78 42 75 66 66 |ess.loop|..RxBuff|
|000052f0| 65 72 28 31 29 3d 72 69 | 67 68 74 28 52 78 42 75 |er(1)=ri|ght(RxBu|
|00005300| 66 66 65 72 28 31 29 2c | 6c 65 6e 28 52 78 42 75 |ffer(1),|len(RxBu|
|00005310| 66 66 65 72 28 31 29 29 | 2d 4d 6f 72 65 29 20 2f |ffer(1))|-More) /|
|00005320| 2f 20 53 74 65 70 20 32 | 3a 20 74 72 69 6d 20 72 |/ Step 2|: trim r|
|00005330| 65 6d 61 69 6e 64 65 72 | 20 6f 66 66 20 74 6f 70 |emainder| off top|
|00005340| 20 70 61 63 6b 65 74 85 | 01 52 78 42 79 74 65 73 | packet.|.RxBytes|
|00005350| 3d 52 78 42 79 74 65 73 | 2d 4d 6f 72 65 2f 2f 20 |=RxBytes|-More// |
|00005360| 53 74 65 70 20 33 3a 20 | 72 65 2d 62 75 69 6c 64 |Step 3: |re-build|
|00005370| 20 74 68 65 20 72 65 63 | 65 69 76 65 20 76 69 65 | the rec|eive vie|
|00005380| 77 20 66 72 6f 6d 20 73 | 63 72 61 74 63 68 0e 4d |w from s|cratch.M|
|00005390| 6f 72 65 3d 52 78 50 61 | 63 6b 65 74 73 0b 52 78 |ore=RxPa|ckets.Rx|
|000053a0| 50 61 63 6b 65 74 73 3d | 30 17 64 6f 20 75 6e 74 |Packets=|0.do unt|
|000053b0| 69 6c 20 52 78 50 61 63 | 6b 65 74 73 3d 4d 6f 72 |il RxPac|kets=Mor|
|000053c0| 65 15 52 78 50 61 63 6b | 65 74 73 3d 52 78 50 61 |e.RxPack|ets=RxPa|
|000053d0| 63 6b 65 74 73 2b 31 0b | 55 70 64 61 74 65 52 78 |ckets+1.|UpdateRx|
|000053e0| 57 69 6e 04 6c 6f 6f 70 | 26 55 70 64 61 74 65 52 |Win.loop|&UpdateR|
|000053f0| 78 20 2f 2f 20 53 74 65 | 70 20 34 3a 20 70 6f 6c |x // Ste|p 4: pol|
|00005400| 69 73 68 20 74 68 65 20 | 62 75 74 74 6f 6e 73 06 |ish the |buttons.|
|00005410| 65 6e 64 20 69 66 00 07 | 45 6e 64 20 53 75 62 08 |end if..|End Sub.|
|00005420| 4c 32 73 74 72 69 6e 67 | 0b 78 20 61 73 20 73 74 |L2string|.x as st|
|00005430| 72 69 6e 67 06 73 74 72 | 69 6e 67 00 02 2a 02 2a |ring.str|ing..*.*|
|00005440| 07 28 46 75 6e 63 74 69 | 6f 6e 20 4c 32 73 74 72 |.(Functi|on L2str|
|00005450| 69 6e 67 28 78 20 61 73 | 20 73 74 72 69 6e 67 29 |ing(x as| string)|
|00005460| 20 41 73 20 73 74 72 69 | 6e 67 00 34 2f 2f 20 6a | As stri|ng.4// j|
|00005470| 75 73 74 20 61 20 73 74 | 72 69 6e 67 2c 20 70 72 |ust a st|ring, pr|
|00005480| 65 63 65 65 64 65 64 20 | 62 79 20 69 74 73 20 6c |eceeded |by its l|
|00005490| 65 6e 67 74 68 28 74 77 | 6f 20 62 79 74 65 73 29 |ength(tw|o bytes)|
|000054a0| 00 14 72 65 74 75 72 6e | 20 63 68 72 28 6c 65 6e |..return| chr(len|
|000054b0| 28 78 29 29 2b 78 00 0c | 45 6e 64 20 46 75 6e 63 |(x))+x..|End Func|
|000054c0| 74 69 6f 6e 00 03 0f 45 | 6e 61 62 6c 65 4d 65 6e |tion...E|nableMen|
|000054d0| 75 49 74 65 6d 73 05 0f | 05 0f 07 15 53 75 62 20 |uItems..|....Sub |
|000054e0| 45 6e 61 62 6c 65 4d 65 | 6e 75 49 74 65 6d 73 28 |EnableMe|nuItems(|
|000054f0| 29 15 41 62 6f 75 74 4d | 4e 55 2e 65 6e 61 62 6c |).AboutM|NU.enabl|
|00005500| 65 64 3d 74 72 75 65 17 | 53 6f 75 6e 64 4f 6e 4d |ed=true.|SoundOnM|
|00005510| 4e 55 2e 65 6e 61 62 6c | 65 64 3d 74 72 75 65 18 |NU.enabl|ed=true.|
|00005520| 53 6f 75 6e 64 4f 66 66 | 4d 4e 55 2e 65 6e 61 62 |SoundOff|MNU.enab|
|00005530| 6c 65 64 3d 74 72 75 65 | 19 53 65 6c 65 63 74 41 |led=true|.SelectA|
|00005540| 6c 6c 4d 4e 55 2e 65 6e | 61 62 6c 65 64 3d 74 72 |llMNU.en|abled=tr|
|00005550| 75 65 0f 41 62 6f 75 74 | 4d 4e 55 2e 65 6e 61 62 |ue.About|MNU.enab|
|00005560| 6c 65 07 45 6e 64 20 53 | 75 62 05 43 6c 6f 73 65 |le.End S|ub.Close|
|00005570| 01 04 01 04 03 0b 53 75 | 62 20 43 6c 6f 73 65 28 |......Su|b Close(|
|00005580| 29 04 71 75 69 74 07 45 | 6e 64 20 53 75 62 04 4f |).quit.E|nd Sub.O|
|00005590| 70 65 6e 80 01 09 80 01 | 09 82 01 0a 53 75 62 20 |pen.....|....Sub |
|000055a0| 4f 70 65 6e 28 29 00 16 | 64 69 6d 20 63 6f 75 6e |Open()..|dim coun|
|000055b0| 74 65 72 20 61 73 20 69 | 6e 74 65 67 65 72 14 64 |ter as i|nteger.d|
|000055c0| 69 6d 20 61 73 63 69 69 | 20 61 73 20 69 6e 74 65 |im ascii| as inte|
|000055d0| 67 65 72 10 64 69 6d 20 | 78 20 61 73 20 69 6e 74 |ger.dim |x as int|
|000055e0| 65 67 65 72 00 21 2f 2f | 20 43 6f 6e 74 72 6f 6c |eger.!//| Control|
|000055f0| 57 49 4e 2e 74 69 74 6c | 65 3d 22 43 6f 6e 74 72 |WIN.titl|e="Contr|
|00005600| 6f 6c 20 42 6f 78 22 00 | 1c 43 6f 6e 6e 65 63 74 |ol Box".|.Connect|
|00005610| 42 54 4e 2e 43 61 70 74 | 69 6f 6e 3d 22 43 6f 6e |BTN.Capt|ion="Con|
|00005620| 6e 65 63 74 22 10 53 65 | 6e 64 42 4f 58 2e 53 65 |nect".Se|ndBOX.Se|
|00005630| 74 46 6f 63 75 73 19 48 | 65 78 53 74 72 3d 22 30 |tFocus.H|exStr="0|
|00005640| 31 32 33 34 35 36 37 38 | 39 41 42 43 44 45 46 22 |12345678|9ABCDEF"|
|00005650| 15 4e 75 6d 65 72 61 6c | 73 3d 22 30 31 32 33 34 |.Numeral|s="01234|
|00005660| 35 36 37 38 39 22 07 50 | 6f 72 74 3d 2d 31 0a 41 |56789".P|ort=-1.A|
|00005670| 64 64 72 65 73 73 3d 22 | 22 0f 43 6f 6e 6e 65 63 |ddress="|".Connec|
|00005680| 74 65 64 3d 66 61 6c 73 | 65 0b 52 78 50 61 63 6b |ted=fals|e.RxPack|
|00005690| 65 74 73 3d 30 09 52 78 | 42 79 74 65 73 3d 30 09 |ets=0.Rx|Bytes=0.|
|000056a0| 52 78 4c 69 6e 65 73 3d | 30 08 55 70 64 61 74 65 |RxLines=|0.Update|
|000056b0| 52 78 0f 4c 69 73 74 65 | 6e 69 6e 67 3d 66 61 6c |Rx.Liste|ning=fal|
|000056c0| 73 65 82 01 2f 2f 20 63 | 72 65 61 74 65 20 61 20 |se..// c|reate a |
|000056d0| 74 72 61 6e 73 6c 61 74 | 69 6f 6e 20 74 61 62 6c |translat|ion tabl|
|000056e0| 65 20 74 6f 20 68 65 6c | 70 20 71 75 69 63 6b 6c |e to hel|p quickl|
|000056f0| 79 20 64 69 73 70 6c 61 | 79 20 61 6c 6c 20 73 6f |y displa|y all so|
|00005700| 72 74 73 20 6f 66 2c 2f | 2f 20 68 69 67 68 20 6f |rts of,/|/ high o|
|00005710| 72 64 65 72 20 61 73 63 | 69 69 20 61 73 20 61 6c |rder asc|ii as al|
|00005720| 70 68 61 62 65 74 69 63 | 20 63 68 61 72 61 63 74 |phabetic| charact|
|00005730| 65 72 73 09 63 6f 75 6e | 74 65 72 3d 30 02 64 6f |ers.coun|ter=0.do|
|00005740| 3b 44 65 63 6f 64 65 41 | 6c 70 68 61 28 63 6f 75 |;DecodeA|lpha(cou|
|00005750| 6e 74 65 72 29 20 3d 20 | 63 68 72 28 39 36 2b 63 |nter) = |chr(96+c|
|00005760| 6f 75 6e 74 65 72 2d 66 | 6c 6f 6f 72 28 63 6f 75 |ounter-f|loor(cou|
|00005770| 6e 74 65 72 2f 33 32 29 | 2a 33 32 29 25 61 73 63 |nter/32)|*32)%asc|
|00005780| 69 69 3d 39 36 2b 63 6f | 75 6e 74 65 72 2d 66 6c |ii=96+co|unter-fl|
|00005790| 6f 6f 72 28 63 6f 75 6e | 74 65 72 2f 33 32 29 2a |oor(coun|ter/32)*|
|000057a0| 33 32 1d 69 66 20 61 73 | 63 69 69 3c 39 37 20 6f |32.if as|cii<97 o|
|000057b0| 72 20 61 73 63 69 69 3e | 31 32 33 20 74 68 65 6e |r ascii>|123 then|
|000057c0| 08 61 73 63 69 69 3d 33 | 32 06 65 6e 64 20 69 66 |.ascii=3|2.end if|
|000057d0| 1f 44 65 63 6f 64 65 41 | 6c 70 68 61 28 63 6f 75 |.DecodeA|lpha(cou|
|000057e0| 6e 74 65 72 29 3d 63 68 | 72 28 61 73 63 69 69 29 |nter)=ch|r(ascii)|
|000057f0| 30 44 65 63 6f 64 65 48 | 65 78 28 63 6f 75 6e 74 |0DecodeH|ex(count|
|00005800| 65 72 29 3d 72 69 67 68 | 74 28 22 30 22 2b 68 65 |er)=righ|t("0"+he|
|00005810| 78 28 63 6f 75 6e 74 65 | 72 29 2c 32 29 2b 22 20 |x(counte|r),2)+" |
|00005820| 22 13 73 65 6c 65 63 74 | 20 63 61 73 65 20 63 6f |".select| case co|
|00005830| 75 6e 74 65 72 07 63 61 | 73 65 20 32 31 18 44 65 |unter.ca|se 21.De|
|00005840| 63 6f 64 65 41 73 63 69 | 69 28 63 6f 75 6e 74 65 |codeAsci|i(counte|
|00005850| 72 29 3d 22 2e 22 06 63 | 61 73 65 20 38 18 44 65 |r)=".".c|ase 8.De|
|00005860| 63 6f 64 65 41 73 63 69 | 69 28 63 6f 75 6e 74 65 |codeAsci|i(counte|
|00005870| 72 29 3d 22 2e 22 07 63 | 61 73 65 20 31 30 18 44 |r)=".".c|ase 10.D|
|00005880| 65 63 6f 64 65 41 73 63 | 69 69 28 63 6f 75 6e 74 |ecodeAsc|ii(count|
|00005890| 65 72 29 3d 22 2e 22 07 | 63 61 73 65 20 31 33 18 |er)=".".|case 13.|
|000058a0| 44 65 63 6f 64 65 41 73 | 63 69 69 28 63 6f 75 6e |DecodeAs|cii(coun|
|000058b0| 74 65 72 29 3d 22 2e 22 | 04 65 6c 73 65 21 44 65 |ter)="."|.else!De|
|000058c0| 63 6f 64 65 41 73 63 69 | 69 28 63 6f 75 6e 74 65 |codeAsci|i(counte|
|000058d0| 72 29 3d 63 68 72 28 63 | 6f 75 6e 74 65 72 29 0a |r)=chr(c|ounter).|
|000058e0| 65 6e 64 20 73 65 6c 65 | 63 74 11 63 6f 75 6e 74 |end sele|ct.count|
|000058f0| 65 72 3d 63 6f 75 6e 74 | 65 72 2b 31 16 6c 6f 6f |er=count|er+1.loo|
|00005900| 70 20 75 6e 74 69 6c 20 | 63 6f 75 6e 74 65 72 3e |p until |counter>|
|00005910| 32 35 35 00 0d 44 65 63 | 6c 61 69 72 50 6f 70 75 |255..Dec|lairPopu|
|00005920| 70 73 00 18 55 73 65 72 | 43 6f 6e 6e 65 63 74 69 |ps..User|Connecti|
|00005930| 6f 6e 41 64 64 72 65 73 | 73 3d 22 22 15 55 73 65 |onAddres|s="".Use|
|00005940| 72 43 6f 6e 6e 65 63 74 | 69 6f 6e 50 6f 72 74 3d |rConnect|ionPort=|
|00005950| 22 22 0f 55 73 65 72 53 | 65 6e 64 44 61 74 61 3d |"".UserS|endData=|
|00005960| 22 22 16 43 68 61 6e 67 | 69 6e 67 53 65 6e 64 44 |"".Chang|ingSendD|
|00005970| 61 74 61 3d 66 61 6c 73 | 65 18 43 68 61 6e 67 69 |ata=fals|e.Changi|
|00005980| 6e 67 43 6f 6e 6e 65 63 | 74 69 6f 6e 3d 66 61 6c |ngConnec|tion=fal|
|00005990| 73 65 19 43 6f 6e 6e 65 | 63 74 69 6f 6e 50 4f 50 |se.Conne|ctionPOP|
|000059a0| 2e 4c 69 73 74 49 6e 64 | 65 78 3d 30 18 41 75 74 |.ListInd|ex=0.Aut|
|000059b0| 6f 52 65 70 6c 79 50 4f | 50 2e 4c 69 73 74 49 6e |oReplyPO|P.ListIn|
|000059c0| 64 65 78 3d 30 17 53 65 | 6e 64 44 61 74 61 50 4f |dex=0.Se|ndDataPO|
|000059d0| 50 2e 4c 69 73 74 49 6e | 64 65 78 3d 30 09 52 78 |P.ListIn|dex=0.Rx|
|000059e0| 46 75 6c 6c 3d 22 22 11 | 44 6f 41 75 74 6f 52 65 |Full="".|DoAutoRe|
|000059f0| 70 6c 79 3d 66 61 6c 73 | 65 0f 50 6c 61 79 53 6f |ply=fals|e.PlaySo|
|00005a00| 75 6e 64 73 3d 74 72 75 | 65 16 55 73 65 72 43 68 |unds=tru|e.UserCh|
|00005a10| 61 6e 67 69 6e 67 49 6e | 66 6f 3d 66 61 6c 73 65 |angingIn|fo=false|
|00005a20| 26 50 72 65 76 56 69 65 | 77 3d 22 53 22 20 2f 2f |&PrevVie|w="S" //|
|00005a30| 20 73 74 72 69 6e 67 20 | 69 73 20 64 65 66 61 75 | string |is defau|
|00005a40| 6c 74 20 76 69 65 77 13 | 41 64 64 72 65 73 73 42 |lt view.|AddressB|
|00005a50| 4f 58 2e 53 65 74 66 6f | 63 75 73 00 15 41 62 6f |OX.Setfo|cus..Abo|
|00005a60| 75 74 42 6f 78 57 49 4e | 2e 44 69 73 70 6c 61 79 |utBoxWIN|.Display|
|00005a70| 20 31 09 63 65 6e 74 65 | 72 20 6d 65 07 45 6e 64 | 1.cente|r me.End|
|00005a80| 20 53 75 62 04 08 41 62 | 6f 75 74 4d 4e 55 03 00 | Sub..Ab|outMNU..|
|00005a90| 03 00 07 1a 46 75 6e 63 | 74 69 6f 6e 20 41 63 74 |....Func|tion Act|
|00005aa0| 69 6f 6e 20 41 73 20 42 | 6f 6f 6c 65 61 6e 00 00 |ion As B|oolean..|
|00005ab0| 15 41 62 6f 75 74 42 6f | 78 57 49 4e 2e 44 69 73 |.AboutBo|xWIN.Dis|
|00005ac0| 70 6c 61 79 20 30 00 00 | 0c 45 6e 64 20 46 75 6e |play 0..|.End Fun|
|00005ad0| 63 74 69 6f 6e 0a 53 6f | 75 6e 64 4f 6e 4d 4e 55 |ction.So|undOnMNU|
|00005ae0| 01 00 01 0f 03 1a 46 75 | 6e 63 74 69 6f 6e 20 41 |......Fu|nction A|
|00005af0| 63 74 69 6f 6e 20 41 73 | 20 42 6f 6f 6c 65 61 6e |ction As| Boolean|
|00005b00| 0f 50 6c 61 79 53 6f 75 | 6e 64 73 3d 74 72 75 65 |.PlaySou|nds=true|
|00005b10| 0c 45 6e 64 20 46 75 6e | 63 74 69 6f 6e 0b 53 6f |.End Fun|ction.So|
|00005b20| 75 6e 64 4f 66 66 4d 4e | 55 01 10 01 10 03 1a 46 |undOffMN|U......F|
|00005b30| 75 6e 63 74 69 6f 6e 20 | 41 63 74 69 6f 6e 20 41 |unction |Action A|
|00005b40| 73 20 42 6f 6f 6c 65 61 | 6e 10 50 6c 61 79 53 6f |s Boolea|n.PlaySo|
|00005b50| 75 6e 64 73 3d 66 61 6c | 73 65 0c 45 6e 64 20 46 |unds=fal|se.End F|
|00005b60| 75 6e 63 74 69 6f 6e 0c | 53 65 6c 65 63 74 41 6c |unction.|SelectAl|
|00005b70| 6c 4d 4e 55 04 10 04 10 | 09 1a 46 75 6e 63 74 69 |lMNU....|..Functi|
|00005b80| 6f 6e 20 41 63 74 69 6f | 6e 20 41 73 20 42 6f 6f |on Actio|n As Boo|
|00005b90| 6c 65 61 6e 00 39 2f 2f | 20 73 65 6c 65 63 74 20 |lean.9//| select |
|00005ba0| 61 6c 6c 20 74 65 78 74 | 20 69 6e 20 73 65 6e 64 |all text| in send|
|00005bb0| 20 62 6f 78 20 28 73 65 | 74 73 20 66 6f 63 75 73 | box (se|ts focus|
|00005bc0| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 29 00 | automat|ically).|
|00005bd0| 10 53 65 6e 64 42 4f 58 | 2e 53 65 74 46 6f 63 75 |.SendBOX|.SetFocu|
|00005be0| 73 12 53 65 6e 64 42 4f | 58 2e 53 65 6c 53 74 61 |s.SendBO|X.SelSta|
|00005bf0| 72 74 3d 30 23 53 65 6e | 64 42 4f 58 2e 53 65 6c |rt=0#Sen|dBOX.Sel|
|00005c00| 4c 65 6e 67 74 68 3d 6c | 65 6e 28 53 65 6e 64 42 |Length=l|en(SendB|
|00005c10| 4f 58 2e 74 65 78 74 29 | 00 0c 45 6e 64 20 46 75 |OX.text)|..End Fu|
|00005c20| 6e 63 74 69 6f 6e 00 2c | 07 00 00 b4 01 0a 50 75 |nction.,|......Pu|
|00005c30| 73 68 42 75 74 74 6f 6e | 00 00 00 00 01 06 41 63 |shButton|......Ac|
|00005c40| 74 69 6f 6e 01 00 01 00 | 03 0c 53 75 62 20 41 63 |tion....|..Sub Ac|
|00005c50| 74 69 6f 6e 28 29 08 53 | 65 6e 64 54 65 78 74 07 |tion().S|endText.|
|00005c60| 45 6e 64 20 53 75 62 00 | 00 07 00 00 88 02 09 45 |End Sub.|.......E|
|00005c70| 64 69 74 46 69 65 6c 64 | 00 00 00 00 05 0a 44 72 |ditField|......Dr|
|00005c80| 6f 70 4f 62 6a 65 63 74 | 05 03 05 03 1d 1f 53 75 |opObject|......Su|
|00005c90| 62 20 44 72 6f 70 4f 62 | 6a 65 63 74 28 6f 62 6a |b DropOb|ject(obj|
|00005ca0| 20 41 73 20 44 72 61 67 | 49 74 65 6d 29 00 39 2f | As Drag|Item).9/|
|00005cb0| 2f 20 75 73 65 72 20 64 | 72 61 67 73 20 73 6f 6d |/ user d|rags som|
|00005cc0| 65 74 68 69 6e 67 20 77 | 69 74 68 20 74 65 78 74 |ething w|ith text|
|00005cd0| 20 69 6e 20 69 74 20 6f | 6e 74 6f 20 74 68 65 20 | in it o|nto the |
|00005ce0| 73 65 6e 64 20 62 6f 78 | 00 00 91 01 2f 2f 20 44 |send box|....// D|
|00005cf0| 75 65 20 74 6f 20 61 20 | 62 75 67 20 69 6e 20 52 |ue to a |bug in R|
|00005d00| 42 2c 20 74 68 69 73 20 | 63 6f 64 65 20 69 73 20 |B, this |code is |
|00005d10| 6e 6f 74 20 72 65 61 63 | 68 61 62 6c 65 2e 20 20 |not reac|hable. |
|00005d20| 4f 6e 6c 79 20 63 6c 69 | 70 70 69 6e 67 73 20 63 |Only cli|ppings c|
|00005d30| 61 6e 20 62 65 20 64 72 | 61 67 67 65 64 8a 01 2f |an be dr|agged../|
|00005d40| 2f 20 69 6e 74 6f 20 74 | 68 65 20 65 64 69 74 62 |/ into t|he editb|
|00005d50| 6f 78 2c 20 61 6e 64 20 | 74 68 65 79 20 61 75 74 |ox, and |they aut|
|00005d60| 6f 6d 61 74 69 63 61 6c | 6c 79 20 70 61 73 74 65 |omatical|ly paste|
|00005d70| 64 20 61 74 20 74 68 65 | 20 65 6e 64 20 61 6e 64 |d at the| end and|
|00005d80| 20 61 72 65 20 6c 65 66 | 74 81 01 2f 2f 20 68 69 | are lef|t..// hi|
|00005d90| 6c 69 67 68 74 65 64 2c | 20 77 69 74 68 6f 75 74 |lighted,| without|
|00005da0| 20 74 72 69 67 67 65 72 | 69 6e 67 20 54 65 78 74 | trigger|ing Text|
|00005db0| 43 68 61 6e 67 65 20 6f | 72 20 44 72 6f 70 4f 62 |Change o|r DropOb|
|00005dc0| 6a 65 63 74 20 65 76 65 | 6e 74 73 2e 00 00 10 64 |ject eve|nts....d|
|00005dd0| 69 6d 20 77 20 61 73 20 | 69 6e 74 65 67 65 72 0f |im w as |integer.|
|00005de0| 64 69 6d 20 78 20 61 73 | 20 73 74 72 69 6e 67 10 |dim x as| string.|
|00005df0| 64 69 6d 20 79 20 61 73 | 20 69 6e 74 65 67 65 72 |dim y as| integer|
|00005e00| 0f 64 69 6d 20 7a 20 61 | 73 20 73 74 72 69 6e 67 |.dim z a|s string|
|00005e10| 00 17 6d 73 67 62 6f 78 | 20 22 64 72 61 67 20 64 |..msgbox| "drag d|
|00005e20| 65 74 65 63 74 65 64 21 | 22 00 19 69 66 20 6f 62 |etected!|"..if ob|
|00005e30| 6a 2e 54 65 78 74 41 76 | 61 69 6c 61 62 6c 65 20 |j.TextAv|ailable |
|00005e40| 74 68 65 6e 12 77 3d 53 | 65 6e 64 42 4f 58 2e 53 |then.w=S|endBOX.S|
|00005e50| 65 6c 53 74 61 72 74 25 | 78 3d 6c 65 66 74 28 53 |elStart%|x=left(S|
|00005e60| 65 6e 64 42 4f 58 2e 74 | 65 78 74 2c 53 65 6e 64 |endBOX.t|ext,Send|
|00005e70| 42 4f 58 2e 53 65 6c 53 | 74 61 72 74 29 8a 01 7a |BOX.SelS|tart)..z|
|00005e80| 3d 72 69 67 68 74 28 53 | 65 6e 64 42 4f 58 2e 74 |=right(S|endBOX.t|
|00005e90| 65 78 74 2c 6c 65 6e 28 | 53 65 6e 64 42 4f 58 2e |ext,len(|SendBOX.|
|00005ea0| 74 65 78 74 29 2d 53 65 | 6e 64 42 4f 58 2e 53 65 |text)-Se|ndBOX.Se|
|00005eb0| 6c 4c 65 6e 67 74 68 2d | 53 65 6e 64 42 4f 58 2e |lLength-|SendBOX.|
|00005ec0| 53 65 6c 53 74 61 72 74 | 29 19 53 65 6e 64 42 4f |SelStart|).SendBO|
|00005ed0| 58 2e 74 65 78 74 3d 78 | 2b 6f 62 6a 2e 74 65 78 |X.text=x|+obj.tex|
|00005ee0| 74 2b 7a 20 2f 2f 20 74 | 6f 20 6d 61 6b 65 20 69 |t+z // t|o make i|
|00005ef0| 74 20 6b 65 65 70 20 69 | 74 20 68 69 6c 69 67 68 |t keep i|t hiligh|
|00005f00| 74 65 64 3a 15 2f 2f 20 | 53 65 6e 64 42 4f 58 2e |ted:.// |SendBOX.|
|00005f10| 53 65 6c 53 74 61 72 74 | 3d 77 22 2f 2f 20 53 65 |SelStart|=w"// Se|
|00005f20| 6e 64 42 4f 58 2e 53 65 | 6c 4c 65 6e 67 74 68 3d |ndBOX.Se|lLength=|
|00005f30| 6c 65 6e 28 6f 62 6a 2e | 74 65 78 74 29 8d 01 53 |len(obj.|text)..S|
|00005f40| 65 6e 64 42 4f 58 2e 53 | 65 6c 53 74 61 72 74 3d |endBOX.S|elStart=|
|00005f50| 77 2b 6c 65 6e 28 6f 62 | 6a 2e 74 65 78 74 29 20 |w+len(ob|j.text) |
|00005f60| 20 2f 2f 20 66 6f 72 20 | 73 6f 6d 65 20 72 65 61 | // for |some rea|
|00005f70| 73 6f 6e 20 74 68 69 73 | 20 68 61 73 20 74 6f 20 |son this| has to |
|00005f80| 62 65 20 64 6f 6e 65 20 | 6c 61 73 74 13 53 65 6e |be done |last.Sen|
|00005f90| 64 42 4f 58 2e 53 65 6c | 4c 65 6e 67 74 68 3d 30 |dBOX.Sel|Length=0|
|00005fa0| 06 65 6e 64 20 69 66 07 | 45 6e 64 20 53 75 62 0a |.end if.|End Sub.|
|00005fb0| 54 65 78 74 43 68 61 6e | 67 65 18 00 18 00 1b 10 |TextChan|ge......|
|00005fc0| 53 75 62 20 54 65 78 74 | 43 68 61 6e 67 65 28 29 |Sub Text|Change()|
|00005fd0| 00 3e 2f 2f 20 75 73 65 | 72 20 69 73 20 63 68 61 |.>// use|r is cha|
|00005fe0| 6e 67 69 6e 67 20 74 65 | 78 74 20 74 6f 20 73 65 |nging te|xt to se|
|00005ff0| 6e 64 2c 20 6b 65 65 70 | 20 74 68 65 20 73 65 6e |nd, keep| the sen|
|00006000| 64 20 62 75 74 74 6f 6e | 20 75 70 64 61 74 65 64 |d button| updated|
|00006010| 00 13 64 69 6d 20 70 61 | 72 74 32 20 61 73 20 73 |..dim pa|rt2 as s|
|00006020| 74 72 69 6e 67 00 ac 01 | 53 65 6e 64 42 54 4e 2e |tring...|SendBTN.|
|00006030| 45 6e 61 62 6c 65 64 3d | 28 6c 65 6e 28 53 65 6e |Enabled=|(len(Sen|
|00006040| 64 42 4f 58 2e 54 65 78 | 74 29 3e 30 20 61 6e 64 |dBOX.Tex|t)>0 and|
|00006050| 28 43 6f 6e 6e 65 63 74 | 42 54 4e 2e 43 61 70 74 |(Connect|BTN.Capt|
|00006060| 69 6f 6e 3d 22 44 69 73 | 63 6f 6e 6e 65 63 74 22 |ion="Dis|connect"|
|00006070| 20 6f 72 20 4c 69 73 74 | 65 6e 42 54 4e 2e 63 61 | or List|enBTN.ca|
|00006080| 70 74 69 6f 6e 3d 22 44 | 69 73 63 6f 6e 6e 65 63 |ption="D|isconnec|
|00006090| 74 22 29 29 00 1c 69 66 | 20 6e 6f 74 20 43 68 61 |t"))..if| not Cha|
|000060a0| 6e 67 69 6e 67 53 65 6e | 64 44 61 74 61 20 74 68 |ngingSen|dData th|
|000060b0| 65 6e 19 55 73 65 72 53 | 65 6e 64 44 61 74 61 3d |en.UserS|endData=|
|000060c0| 53 65 6e 64 42 4f 58 2e | 74 65 78 74 20 69 66 20 |SendBOX.|text if |
|000060d0| 53 65 6e 64 44 61 74 61 | 50 4f 50 2e 4c 69 73 74 |SendData|POP.List|
|000060e0| 49 6e 64 65 78 3c 3e 30 | 20 74 68 65 6e 17 53 65 |Index<>0| then.Se|
|000060f0| 6e 64 44 61 74 61 50 4f | 50 2e 4c 69 73 74 49 6e |ndDataPO|P.ListIn|
|00006100| 64 65 78 3d 30 06 65 6e | 64 20 69 66 00 17 2f 2f |dex=0.en|d if..//|
|00006110| 20 61 74 74 65 6d 70 74 | 20 61 6e 20 61 75 74 6f | attempt| an auto|
|00006120| 20 73 65 6e 64 00 8f 01 | 69 66 20 53 65 6e 64 42 | send...|if SendB|
|00006130| 54 4e 2e 65 6e 61 62 6c | 65 64 20 61 6e 64 20 41 |TN.enabl|ed and A|
|00006140| 75 74 6f 53 65 6e 64 43 | 48 4b 2e 76 61 6c 75 65 |utoSendC|HK.value|
|00006150| 20 61 6e 64 20 49 6e 53 | 74 72 28 53 65 6e 64 42 | and InS|tr(SendB|
|00006160| 4f 58 2e 74 65 78 74 2c | 63 68 72 28 31 33 29 29 |OX.text,|chr(13))|
|00006170| 3e 30 20 74 68 65 6e 29 | 2f 2f 20 64 6f 20 75 6e |>0 then)|// do un|
|00006180| 74 69 6c 20 49 6e 53 74 | 72 28 53 65 6e 64 42 4f |til InSt|r(SendBO|
|00006190| 58 2e 74 65 78 74 2c 63 | 68 72 28 31 33 29 29 3d |X.text,c|hr(13))=|
|000061a0| 30 8a 01 2f 2f 20 70 61 | 72 74 32 3d 72 69 67 68 |0..// pa|rt2=righ|
|000061b0| 74 28 53 65 6e 64 42 4f | 58 2e 74 65 78 74 2c 6c |t(SendBO|X.text,l|
|000061c0| 65 6e 28 53 65 6e 64 42 | 4f 58 2e 74 65 78 74 29 |en(SendB|OX.text)|
|000061d0| 2d 49 6e 53 74 72 28 53 | 65 6e 64 42 4f 58 2e 74 |-InStr(S|endBOX.t|
|000061e0| 65 78 74 2c 63 68 72 28 | 31 33 29 29 29 3e 2f 2f |ext,chr(|13)))>//|
|000061f0| 20 53 65 6e 64 42 4f 58 | 2e 74 65 78 74 3d 6c 65 | SendBOX|.text=le|
|00006200| 66 74 28 53 65 6e 64 42 | 4f 58 2e 74 65 78 74 2c |ft(SendB|OX.text,|
|00006210| 49 6e 53 74 72 28 53 65 | 6e 64 42 4f 58 2e 74 65 |InStr(Se|ndBOX.te|
|00006220| 78 74 2c 63 68 72 28 31 | 33 29 29 29 08 53 65 6e |xt,chr(1|3))).Sen|
|00006230| 64 54 65 78 74 a6 01 2f | 2f 20 53 65 6e 64 42 4f |dText../|/ SendBO|
|00006240| 58 2e 74 65 78 74 3d 70 | 61 72 74 32 2b 53 65 6e |X.text=p|art2+Sen|
|00006250| 64 42 4f 58 2e 74 65 78 | 74 20 20 2f 2f 20 61 70 |dBOX.tex|t // ap|
|00006260| 70 65 6e 64 20 74 6f 20 | 66 72 6f 6e 74 20 69 6e |pend to |front in|
|00006270| 20 63 61 73 65 20 61 20 | 63 68 61 6e 67 65 20 73 | case a |change s|
|00006280| 6e 75 63 6b 20 69 6e 20 | 77 68 69 6c 65 20 77 65 |nuck in |while we|
|00006290| 20 77 65 72 65 20 73 65 | 6e 64 69 6e 67 07 2f 2f | were se|nding.//|
|000062a0| 20 6c 6f 6f 70 06 65 6e | 64 20 69 66 06 65 6e 64 | loop.en|d if.end|
|000062b0| 20 69 66 00 07 45 6e 64 | 20 53 75 62 09 53 65 6c | if..End| Sub.Sel|
|000062c0| 43 68 61 6e 67 65 01 00 | 01 00 03 0f 53 75 62 20 |Change..|....Sub |
|000062d0| 53 65 6c 43 68 61 6e 67 | 65 28 29 00 07 45 6e 64 |SelChang|e()..End|
|000062e0| 20 53 75 62 08 47 6f 74 | 46 6f 63 75 73 02 00 02 | Sub.Got|Focus...|
|000062f0| 00 04 0e 53 75 62 20 47 | 6f 74 46 6f 63 75 73 28 |...Sub G|otFocus(|
|00006300| 29 11 2f 2f 20 75 70 64 | 61 74 65 20 62 75 74 74 |).// upd|ate butt|
|00006310| 6f 6e 73 17 41 64 64 48 | 65 78 42 54 4e 2e 44 65 |ons.AddH|exBTN.De|
|00006320| 66 61 75 6c 74 3d 66 61 | 6c 73 65 07 45 6e 64 20 |fault=fa|lse.End |
|00006330| 53 75 62 07 4b 65 79 44 | 6f 77 6e 01 00 01 00 03 |Sub.KeyD|own.....|
|00006340| 2a 46 75 6e 63 74 69 6f | 6e 20 4b 65 79 44 6f 77 |*Functio|n KeyDow|
|00006350| 6e 28 4b 65 79 20 41 73 | 20 53 74 72 69 6e 67 29 |n(Key As| String)|
|00006360| 20 41 73 20 42 6f 6f 6c | 65 61 6e 00 0c 45 6e 64 | As Bool|ean..End|
|00006370| 20 46 75 6e 63 74 69 6f | 6e 00 00 07 00 00 b4 01 | Functio|n.......|
|00006380| 0a 50 75 73 68 42 75 74 | 74 6f 6e 00 00 00 00 01 |.PushBut|ton.....|
|00006390| 06 41 63 74 69 6f 6e 01 | 07 01 07 03 0c 53 75 62 |.Action.|.....Sub|
|000063a0| 20 41 63 74 69 6f 6e 28 | 29 0c 48 65 78 57 49 4e | Action(|).HexWIN|
|000063b0| 2e 47 65 74 49 74 07 45 | 6e 64 20 53 75 62 00 00 |.GetIt.E|nd Sub..|
|000063c0| 07 00 00 b4 01 0a 50 75 | 73 68 42 75 74 74 6f 6e |......Pu|shButton|
|000063d0| 00 00 00 00 01 06 41 63 | 74 69 6f 6e 01 00 01 00 |......Ac|tion....|
|000063e0| 04 0c 53 75 62 20 41 63 | 74 69 6f 6e 28 29 05 63 |..Sub Ac|tion().c|
|000063f0| 6c 6f 73 65 04 71 75 69 | 74 07 45 6e 64 20 53 75 |lose.qui|t.End Su|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
